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EXAMPLES OF SOFTWARE PARAMETER DIALOGUE 


2.3.1 BASIC FUNCTION AND DATA RELIABILITY 
WITH ALL ERROR REPORTING ENABLED 

2.3.2 SCOPE LOOP SET UP IN BASIC FUNCTIONS 

2.3.3 SCOPE LOOP SET UP IN DATA RELIABILITY 


EXECUTION TIMES 


@.4.1 SYSTEM CONF IGURAT ION 
2.4.2 TEST EXECUTION TIMES 


SEQ 0003 
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ae 3.0 ERROR INFORMATION 
ott . 3.1 ERROR REPORTING 
i 
109 3.1.1 ERROR #1 - COMMAND PACKET ADDRESS IS NOT ON AM 
110 3.1.2 ERROR #2 - TSO4 NOT READY 
lll 3.1.35 ERROR #3 - NO RESPONSE ERRORS 
lle 3.1.4 ERROR #4 - NO INTERRUPT ERROR 
113 3.1.5 SPECIAL CONDITION ERRORS 
114 
115 3.1.5.1 ERROR @S - TCCO, UNDEFINED SPECIAL COND 
116 1.5.2 ERROR #6 - TCC1, ATTENTION CONOITION 
117 3.1.5.3 ERROR #7 - TCC2, TAPE STATUS ALERT 
118 3.1.5.4 ERROR #8 - TCC3, FUNCTION REJECT 
119 3.1.5.5 ERROR #9 - TCC4, RECOVERABLE ERROR 
120 3.1.5.6 ERROR #10- TCCS, RECOVERABLE ERROR 
121 3.1.5.7 ERROR @11- TCC6, UNRECOVERABLE ERROR 
se 3.1.5.8 ERROR #12- TCC7, FATAL SUBSYSTEM ERROR 
1 
124 3.1.6 ERROR #13 - RFC NON-ZERO ERROR 
125 3.1.7 ERROR 014 - RETRY LIMIT EXCEEDED 
126 3.1.8 ERROR #15 - TOO MANY INTERRUPTS 
127 3.1.9 ERROR #16 - CAPSTAN RUNAWAY 
ye 3.1.10 ERROR #17 - DATA COMPARE ERRORS 
130 3.2 ERROR HALTS 
131 
i32 
133 4.0 PERFORMANCE REPORT 
134 
135 
$4; 5.0 Tes’ SUMMARIES 
138 3.3 TEST 1 - BASIC FUNCTIONS 
139 3.e TEST 2 - DATA RELIABILITY 
140 3.3 TEST 3 - WRITE COMPATABILITY/WRITE UTILITY 
141 5.4 TEST 4 - READ COMPATABILITY/READ UTILITY 
at 5.5 TEST S - EXECUTE OPERATOR SELECTED COMMAND SEQUENCE 
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+4 6.0 DEVICE INFORMATION 
6 
147 6.1 GENERAL 
148 6.2 UNIBUS INTERFACE SPECIF ICATIONS 
oH 6.3 BIT DEFINITIONS FOR 1TS11/TS04 REGISTERS 
15¢ 
151 5.3 TS11/TSO4 REGISTER SUMMARY 
152 2 6.3.2 TS11 STATUS REGISTER (TSSR, 
153 6.3.3 EXTENDED STATUS REGISTER “© CXSTATO) 
154 6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 
155 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 
156 6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 
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ACT 
APT 
BrTE/RECORD/FILE COUNT 
BRF 


CMD 
COMMAND PACKET 
CMOPK* 


EXTENDED STATUS 
MESSAGE PACKET 

PC 

PSw 

RESIDUAL FRAME COUNT 
RFC 

SPECIAL CONDITION 
SPEC COND 


TERMINATION CLASS CODE 


SEQ 0006 


AUTOMATED COMPUTER TEST SYSTEM 
AUTOMATED PRODUCT TEST SYSTEM 


IS STORED IN THE 4TH WORD OF THE COMMAND 
PACKET AND IT'S USE By THE TSO4 DEPENDS 
ON THE TYPE OF COMMAND. 


TSO4 COMMAND (SEE 2.3.14.1 FOR LIST OF COMMANDS) 


FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 
TSO4 TO EXECUTE A COMMAND. 


FOUR WORDS OF TSO4 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 


SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TSO4 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 


PROGRAM COUNTER 
PROCESSOR STATUS WORD 


THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES REMAINING TO BE PROCESSED AT THE 
COMPLETION OF A COMMAND. 

TSS4 BITIS. WHEN S&T, INDICATES THAT 
THE LAST COMMAND DI NOT COMPLETE wWITH- 
OUT INCIDENT. / 


THREE BIT CODE IN /THE TSSR WHICH INDI- 


Hi 
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195 TCC CATES THE TYPE OF COMMAND TERMINATION. 
197 TSBA TAPE SYSTEM BUS ADDRESS REGISTER. 
199 TSDB TAPE SYSTEM DATA BUFFER REGISTER. 
501 TSSR TAPE SYSTEM STATUS REGISTER. 
508 XSTO EXTENDED STATUS REGISTER 0 
505 XST1 EXTENDED STATUS REGISTER 1 
50° xST2 EXTENDED STATUS REGISTER 2 
509 XST3 EXTENDED STATUS REGISTER 3 
Sti | XXDP + XXDP+ IS A “CATCH-ALL” NAME FOR A GROUP OF PDP-1 
212 DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 
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214 
215 1.0 GENERAL INFORMATION 
PO 2 oe oS ae ae eT a nammmceddanes nants 
217 
218 1.1 PROGRAM ABSTRACT 
ae Oot a, ee te ee Se Ge oe et Cy LL eee nr ieee a 
220 
22 
222 1.1.1 FUNCTIONAL DESCRIPTION 
ee eh OS Sine prem ereraaener 
225 THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
226 TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE OF OPERATOR 
227 SELECTED COMMANDS. 
229 1.1.2 STRUCTURE OF PROGRAM 
BO se eG ph ee penning sentnrecy ses 
231 
232 THIS DIAGNOSTIC IS A SINGLE PROGRAM 
233 FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
254 MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 
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237 1.1.3 MEMORY MA 
Be ee ee i ee ees ns Pe -- 


247 ; 400 


253 2000 


ft 
a 
o 
Ln! 
b 
© 
3 
w 
“ 
cl 
oO 


259 41000 


OIAGNOSTIC 
SUPERVISOR 


266 72000 


273 POE oC vdemecen veges 


276 FREE MEMO SPACE FOR WR/RD BFRS OR OTHER PUROSES 

e277 IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
278 By PROGRAMMER TO RESIDE BETWEEN THE DIAG AND THE 
279 SUPERVISOR, 
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280 1.1.4 DIAGNOSTIC INFORMATION 
BM tee ee > eee: - 52 es tA. teeekentonehenestesnin 
282 
288 1.1.4.1 SCOPE 
285 THIS DIAGNOSTIC CAN TEST UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 
286 ARE ASSIGNED LOGICAL UNIT NUMBERS O - 3 BY THE DIAGNOSTIC. 
288 THERE ARE 5 TESTS IN THIS PROGRAM: 
290 TEST 1 - BASIC FUNCTIONS. 
291 TEST 2 - DATA RELIABILITY. 
292 TEST 3 - WRITE COMPATABILITY/WRITE UTILITY. 
293 TEST 4 - READ COMPATABILITY/READ UTILITY. 
234 TEST 5S - OPERATOR SELECTED SEQUENCE UTILITY. 
296 1.1.4.2 ERROR RECOVERY 
298 ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK 
299 ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. 
300 THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 
301 AND 8 IN THE OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR RECOVER 
302 PROCEDURES, SEE SECTION 3.0 (ERROR REPORTING). 
304 1.1.4.3 WRITE ERROR RECOVERY 
306 THERE ARE 2 DISTINCT, SELECTABLE WRITE -ERROR-RECOVERY ALGORITHMS: 
307 1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
308 2: OPERATIONAL ALGORITHM 
316. BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 
311 MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 
313 TO SELECT THE SECOND ALGORITHM: 
314 ANSWER ‘Y' TO CHANGE SW (L) ? 
315 ANSWER ‘'N’ TO BAD TAPE SPOT DETECTION (L) Y ? 
317 WHEN ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
318 AND BOTH ALGORITHMS ARE BYPASSED. 
320 1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
322 SCOPE 
324 THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 
325 OPERATIONAL ONES, 
326 
327 ALGORITHM 
329 A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE 
330 ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR. 
331 THE WRITE RETRY SUBROUTINE REWRITES RECORD IN SAME SPOT ON TAPE: 
332 REPEAT 4 TIMES, 
333 IF ALL 4 REPEATS ARE GOOD, RECORD IS CONSIDERED AS RECOVERED AND 
334 A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 


335 IF ANY OF THE 4 REPEAT FAILS, ERASE BAD RECORD, LOGG SUSPECTED . 
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BAD SPOT AT THAT RECORD NUMBER, RETRY AGAIN 3 INCHES FURTHER DOWN TAPE. 
RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

IF RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERROR AFTER 4 RETRIES, 
ERASE RECORD, REPORT RETRY FAILED ON BAD SPOT. 

THE RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, 

UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 


TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE PASS. 

WHEN 20 BAD SPOTS HAVE BEEN LOGGED, ON SAME RECORD NUMBER OR NOT 

TAPE IS CONSIDERED DEFECTIVE: 4 BAD TAPE OVERFLOW MESSAGE IS PRINTED 
AND UNIT IS REWOUND, THEN DROPPED. 


DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 
POSITION OPERATIONS: SPACE REVERSE, ERASE. IF A POSITION ERROR STATUS 
IS DETECTED DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS ABORTE 
AN APPROPRIATE UNRECOVERABLE MESSAGE IS PRINTED AND UNIT IS DROPPED. 


ALL BADLY WRITTEN RECORDS FLAGGED WITH RECOVERABLE ERRORS ARE ERASED 
UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD SPOT, 

SO THAT ALL RECORDS LEFT ON TAPE ARE GOOD WRITTEN RECORDS. 

BAD SPOTS ARE ERASED, WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GRO 
UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 

A SINGLE RECORD,IF NO BAD SPOT WERE PREVIOUSLY DETECTED. 

THAT LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 

BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 


EAD SPOTS REPORTS 


IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 
IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL 
THE BAD SPOTS ACTUALLY PRECEDES THE RECORD NUMBER THAT IDENTIFIES THEM. 
THE NUMBER OF REPEATS AND RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE 
LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETR 


TRE STATISTICAL REPORT PRINTED AT THE END OF TEST 2 OR UPON A “PRINT” RE 


CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT TAPE PASS. 


IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT. ‘FOR 


_THE NUMBER OF BAD SPOTS: IT RELATES TO A “TAPE PASS” ONLY 
FOR THIS PURPOSE, A “TAPE PASS” IS A WRITE PASS FROM BOT TO EOT, OR FROM 
- BOT TO WHERE THE DIAGNOSTIC IS HALTED BEFORE REACHING EOT. 


A PASS IS DEFINED BY THE SUPERVISOR AS A RUN THROUGH ALL THE TESTS REQUE 


* ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS “PASS” AND “EOP”. 


THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 
COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 


THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 

AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. 

PER TAPE PASS, THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 
NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS, MOST OF THE TIME. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y’ TO: CLEAR pants CU? ¥ 2; 
BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BO 


IF TEST 2 IS HALTED, THEN RESTART©D OR CONTINUED, THE RECORD COUNT 


M1 
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392 IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 
3903 
394 SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
395 BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 
396 OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 

397 

398 THE SAME RECORDS MUST BE WRITTEN FORM TAPE PASS TO TAPE PASS 
399 FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 
400 ‘ 

401 EXAMPLE OF A TAPE PASS PRINTS: 

402 

403 CZTSH SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
404 RECOVERABLE ERROR 

405 WRT CMD FAILED - UNIT O_ PASS: 1 RECORD: 6 
406 PREVIOUS CMD WAS WRT 

407 CMDPKT TSBA RFC TSSR tcc 

408 100205 002406 000000 100210 4 

409 026600 

410 000000 

4il 003107 

412 xSTO xST1 xST2 xST3 

413 000350 000002 100400 000000 

414 SUSPECT BAD SPOT AFTER 1 RETRY, 2 REPEAT 

415 SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 

416 SUSPECT BAD SPOT AFTER 3 RETRY, 1 REPEAT 

417 SUSPECT BAD SPOT AFTER 4 RETRY, 3 REPEAT 

418 RETRY FAILED ON BAD SPOT...ERASED! 

419 SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 

426 SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 

re 

423 CZTSH SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
424 RECOVERABLE ERROR 

425 WRT CMD FAILED - UNIT O_ PASS: 1 RECORD:10210 
426 PREVIOUS CMD WAS WRT 

427 CMDPKT TSBA RFC TSsR cc 

428 . 100205 002406 000000 100210 4 

429 026600 

430 000000 

431 004000 

432 xSTO xSTL xST2 xST3 

433 000350 000002 100010 000000 

434 RECOVERED ON RETRY # 1 

435 tC 

436 DR>PRI 

437 

438 UNIT O PASS: 1 RECORD: 10210 

439 BYTES WRITTEN 0,272,279,691 

440 BYTES READ REV 0,301,123,654 

441 BYTES READ REV 0,301,120,381 

442 WRT ROR ROF 

443 RECOVERABLE ERRORS 1 re) 0 

444 UNRECOVERABLE ERRORS re) re o 

a WRITE RETRIES z 


447 2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD ¢#: 
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448 6 6 
449 SPEC COND’ HARD FATAL COMPARE 
450 2 re) re) fe) 
451 DR> 
452 
453 THIS EXAMPLE SHOWS: 
454 RECORD 6 RECOVERED ON 2ND RETRY GROUP 
455 THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 
456 RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 
457 3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN: 
458 1 RECOVERABLE WRT ERR FROM RECORD 10210 
459 2 BAD SPOTS BETWEEN RECORDS S AND 6 
460 
461 
462 
463 1.1.4.3.2 OPERATIONAL WRITE -ERROR-RECOVERY ALGORITHM 
464 
465 WHEN THIS ALGORITHM IS SELECTED, THE TS11 WRITE RET: COMMAND 
466 IS ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED, ON 
467 A WRITE RECOVERABLE ERROR. THE WRITE RETRY COMMAND CONSISTS 
468 OF A SPACE REVERSE OVER THE BAD RECORD. THEN AN ERASE OF 3 INCHES 
469 OF TAPE AND REWRITE OF THE RECORD. THAT COMPOSITE COMMAND 
470 DOES NOT ALLOW TO DETECT BAD SPOTS ON TAPE. 
471 THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 
472 
473 IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
ave A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 
476 
at 1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 
479 A NUMBER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS WATCH DOG 
480 DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
481 COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 
482 INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER LOOP 
483 COMES FROM THE VARIABLE ARGUMENT SUPPLIED By THE DELAY CALLS. 
484 THE COUNT FOR THE INNER LOOP COMES FORM THE FIXED “HEADER” 
485 ELEMENT "LSDLY”. 
486 AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS wILL 
+44 VARY IN LENGTH WITH MEMORY SPEED. 
489 IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 
490 UNIT IS EVIDENT, ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADUUSTED 
491 TO MATCH MEMORY SPEED “ND NOT RESULT IN TIME-OUTS, BY PATCHING 
~~ THAT FIXED DELAY ELEMENT “LSDLY“. 
494 A PRESET COUNT OF 500 RESIDES AT “LSDL¥’ IN LOCATION 2116 OF THE 
495 “HEADER” SECTION. 
496 
497 
498 1.2 SYSTEM REQUIREMENTS 
BOO 8 SE OF rr ae, ae = a ea aes 
500 
501 


Be 
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S04 
505 POP -11 PROCESSOR WITH 16K OR MORE OF MEMORY 
506 CONSOLE DEVICE (LA30,LA36,VI50,ETC. ) 
So? PROGRAM LOAD DEVICE 
S08 
50° 
Sic 1.2.2 SOFTWARE REQUIREMENTS 
Sil ai > ie se et eeae 


z DIAGNOSTIC SUPERVISOR 
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S14 1.3 RELATED DOCUMENTS AND STANDARDS 
Oe eee ee ee ee es ona ceamnesanehaeehavenaiananes 
Slo 
517 XXDP+ USERS MANUAL MD -11-CHQUS 
518 DIAGNOSTIC SUPERVISOR PROGRAM CTSTING 
519 PDP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION, 
530 PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER’S GUIDE. 
Sy TS11/TS04 PROGRAMMING SPECIFICATION. 
32 1$11/TS04 ENGINEERING SPECIFICATION. 
523 TS11/TS04 COMMAND PACKET SPECIFICATION. 
524 
525 
526 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
Re Pate tee ee Re ee _Lee  ee) eid kn CEES RR Owe EERE Oe SRR AERED 
So 
529 ORDER OF HOST CPU DIAGNOSTIC USAGE: 
530 
531 1) CONTROL LOGIC PROGRAM - ALL TESTS. 
2 
533 2) DATA RELIABILITY PROGRAM: 
534 
535 A) BASIC FUNCTION TEST. 
536 B) DATA RELIABILITY TEST. 
537 
538 
539 1.5 ASSUMPTIONS 
Be Wee ee ee ee 
l 
542 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
543 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
544 DO NOT FUNCTION PROPERLY. 


aan sae PIL MACY 
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1.6 DIAGNOSTIC HISTORY 


REVISION A - 


oct 1978 


- ORIGINAL RELEASE 


REVISION B 


REVISION 6 - 


- FEB 1979 


CORRECTED END OF TAPE PROBLEMS IN TESTS 3-5. 

CHANGED DEFAULT VECTOR ADDRESS FROM 150 TO 224, 

ay ey MAXIMUM RECORD LENGTH FROM 4096 TO 2048 BYTES. 
UG 1 


-DO NOT PRINT RECOVERABLE ERRORS UNLESS REQUESTED Br OPERATOR 
-WARN OPERATOR OF UNIT(S) BEING NOT READY OR OFF -LINE 


DROP UNIT(S) LEFT NOT READY OR OFF-LINE FOR 3.5 MINUTES. 


IMPROVE BEHAVIOR AT EOT 

-IN TEST 2, FREEZE UNITS REACHING EOT UNTIL OTHERS 
CATCH-UP INSTEAD OF ALLOWING THEM TO SHUTTLE AT EOT 

-WHEN ALL UNITS REACH EOT, WRITE ONE RECORD BEYOND EOT. 
READ REV THAT EXTRA RECORD TO POSITION TAPE 

SO THAT THE NEXT COMMAND REQUESTED CAN BE EXECUTED. 

THAT EXTRA RECORD SHALL LEAVE A CLEAN IRG GAP AND A VALID 
RECORD TO READ WHEN SHORTER READ STOP DISTANCE MIGHT CAUSE 
UNIT TO FLAG EOT ON THAT EXTRA RECORD INSTEAD OF THE 
PREVIOUS ONE. THIS SHOULD ELIMINATE MANY READ ERRORS AT 
EOT ANDO TAPES RUNNING OFF THE WHEELS. 


-WRITE RECORD COUNT ON TAPE. 


PRINT RECORD COUNT READ FROM TAPE IN READ ERROR PRINTS TO 


INDICATE IF PCSITION WAS LOST. 
@ CAUTION e 


INTERPRET THAT “RECORD READ” COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOST 
POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 
READ FROM TAPE. 

IN TEST 2, IF OIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD 
IS RESET TO ZERO ALTHOUGH TAPE WAS NOT REWOUND. THIS IS 
NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS M4. TED 
BEFORE RESTARTING OR CONTINUING. 

IT IS SUGGESTED THAT A “PRINT” BE REQUESTED WHEN MALTING DI 
TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 


-VERIFyY RECORD OF 4000 BYTES INSTEAD OF 22 BYTES. 
-WHEN COMPARING DATA, CHECK AND PRINT IF NO DATA WAS READ 


OR RECORD WAS LONGER THAN EXPECTED. 


-FREEZE TSSR REG WHEN A COMMANDO IS COMPLETED TO AVOID DIFFERE 


BETWEEN TSSR AND TCC FETCHED AT DIFFERENT TIMES. 
-WHEN DROPPING A UNIT, FLAG SECOND PRINT OF EXTENDED STATUS 


THE RESULT OF A GET STATUS COMMAND. 


WAIT FOR SSR UP BEFORE PRINTING THAT STATUS, 


-ADJUST “PASS” COUNT OF DIAG TO MATCH “EOP” PASS COUNT OF SUP 


-INCREASE NUMBER OF SELECTABLE COMMANDS IN TES! 5 FROM 


4 TO ?, DEFAULT COMMAND 6 IS NOW REWIND. 


CONVERT DIAG TO REV C OF SUPERVISOR. 


SEO 00146 
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ADD SEVERAL SECTIONS: 
PROTECT TABLE 
AUTO-OROP CODE 
HARD CODED PARAMETER TABLE 
REVISION C - OCT 79 
- ADD MEDIA/OPERATIONAL SELECTIVE WRITE -ERROR-RECOVERY ALGORI 
TO DETECT BAD SPOTS ON TAPE. 
REVISION D - MARCH 84 
- FIX ERROR ROUTINES SO THAT DATA COMPARE ERRORS IN TEST 2 
- DO NOT CAUSE OTHER PROBLEMS. 
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2.0 OPERATING INSTRUCTIONS 


al —_ TNSTRUCTIONS, PLEASE SEE CHAPTER 5S OF XxDP+ OPERATOR'S 
VAL . 


2.1 HARDWARE PARAMETERS 


ON A “N” RESPONSE TO “CHANGE HW?", THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSSR = 172522 WITH A VECTOR = 224. 


ON A "Y" RESPONSE TO “CHANGE HW?” QUESTION, THEN 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 


TSSR ADDRESS (172522) ? 
VECTOR (224) ? 


THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS 
BY SETTING THE FLAG “ADR” ON A STA, RES OR CON COMMAND. 
THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
AND SEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRES 
OF THE TSSR(S). IF NO RESPONSE, IT DROPS THE UNIT(S) IMMEDIATELY 
WITH THE FOLLOWING MESSAGE: 

BUS TRAP AT XXXXXX ( XXXXXX = TSSR AD ) 

INTERFACE BAD OR NOT SET TO ABOVE AD. 
ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT 
ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 
BE RUN ON RESPONDING UNITS. 


IF THE “ADR” FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 
UNITS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SC OFTEN 

TO WARN THE OPERATOR OF UNITS BEING NOT READY OR OFF-LINE. TrESE UNITS 
SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME (3 MIN ON A 11/70). 


sail: 


Ic 
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652 2.2 SOFTWARE PARAMETERS 
“8 wee ce cece cscccccens 
rs 
655 THE FO:.LOWING QUESTIONS ARE ASKED IF REQUESTED ON A SIART, RESTART, 
656 OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 
657 
o58 CLEAR COUNTERS (L) Y ? 
659 
660 RESET RANDOM VARIABLES (L) N ? 
661 
662 , PRINT RECOVERABLE ERRORS (L) N ? 
06 
663 HALT AFTER EACH CMD (L) N ? 
665 
666 INHIBIT RECOVERY (L) N ? 
667 
668 BAD TAPE SPOT DETECTION (L) ¥ ? 
669 
670 DISABLE INTERRUPTS (L) N ? 
671 
672 INHIBIT RFC ERROR REPORTS (L) N ? 
6 
te CHANGE CMD SEQUENCE (L) N ? 
6 
676 NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
677 OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
678 IF THIS QUESTION WAS ANSWERED (N), NO MORE 
679 QUESTIONS WILL BE ASKED. IF THIS QUESTION WAS 
680 ANSWERED Y, THE FOLLOWING QUESTIONS MUST BE 
681 ANSWERED OR DEFAULTED WITH A <CR> ONLY: 
683 CHARACTERISTICS CODE (0) 40 2? (0,20,40,200) COCTAL) 
684 CMD/2 (D) 13 ? (1-27) (DECIMAL) 
685 BRF COUNT (D0) 1 ? (1-2k) (DECIMAL) 
686 @ OF OPERATIONS (D) 1 ? (1-32K) (DECIMAL) 
687 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
rt.) CMO/3 (D) 4 ? (1-27) (DECIMAL) 
689 BRF COUNT (D) 2048 ? (1-2k)  (COECIMAL) 
690 @ OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL ) 
691 PATTERN (D) 7? ? (0-8) (DECIMAL ) 
692 CMD/4 (D) 3 ? (1-27) (DECIMAL) 
693 BRF COUNT (D) 2048 ? (1-2k) (DECIMAL) 
694 2 OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) 
695 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
696 CMD/5 (D) 2 ? (1-27)  (OECIMAL) 
697 BRF COUNT (D) 2048 ? (1-2) (DECIMAL) 
698 @ OF OPERATIONS (D) 32000 ? (1-32K) COECIMAL ) 
699 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
700 CMD/6 (D) 13. ? (1-27) (DECIMAL) 
701 BRF COUNT (D) 1 ? (1-2K) (DECIMAL) 
702 @ OF OPERATIONS (D) 1 ? (1-32K) (DECIMAL ) 
703 PATTERN (D) 7 ? (0-8) (DECIMAL ? 
704 CMD/? (D) 27. ? (1-27) (DECIMAL) 
705 BRF COUNT (D) 2048 ? (1-2K)  (CDECIMAL) 
706 @ OF OPERATIONS (D) 32000 ? (1-32) CDECIMAL ) 
707 PATTERN (D) 7 ? (0-8)  CDECIMAL) 
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CMD/8 (D0) 27. 


sos 
BRF COUNT (D) 2 


® OF eons eS wis) * $2000 7 


PATTERN (D) 7 


? 


27) (DECIMAL) 
ek) (DECIMAL) 
32K) (DECIMAL ) 
(0-8) _COECIMAL ) 


SEQ 0020 


NOTE: THE PROGRAM AUTOMATICALLY INSERTS AN alae ar i 40 
AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 
DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD 


ENTER THAT CHARACTERISTIC CODE. 


A TOTAL OF 7 COMMANDS 


MAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTICS 


COMMAND. 


IF THE OPERATOR WISHES TO USE LESS THAN 7 
COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN A 


CONTROL Z (tZ) CAN BE ENTERED TO TERMINATE SOFTWARE DIAL 


ye 
eC. 
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721 2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
722 
723 CODE ° COMMAND DESCRIPTION 
724 x 
725 ¥ = ORI DRIVE INITIATE. 
726 2: ROF READ FORWARD. 
727 3 = ROR READ REVERSE. 
728 4 = WRT WRITE. 
729 5 = wiv WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHEC 
730 N RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS. 
731 ; 6 = SRF SPACE RECORDS FORWARD. 
732 7 = SRR SPACE RECORDS REVERSE. 
733 8 = RNR READ NEXT REVERSE, IE. SPACE FWD, READ REV. 
734 9 = RNF READ NEXT FORWARD, IE. READ FWD, SPACE REV. 
735 10 = RPF READ PREVIOUS FWD, IE. SPACE REV, READ FwD. 
736 11 = RPR READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
737 12 = WRR WRITE RETRY. 
738 13 = RwD REWIND. 
739 14 = MBR MESSAGE BUFFER RELEASE. 
740 15 = wWTM WRITE TAPE MARK, 
741 16 = WTR WRITE TAPE MARK RETRY. 
742 17 = SFF SPACE FILES FORWARD. 
743 18 = SFR SPACE FILES REVERSE. 
744 19 = GES GET EXTENDED STATUS. 
745 20 = ERS ERASE 3 INCHES OF TAPE. 
746 21 = UNL UNLOAD. 
747 22 = CLN CLEAN TAPE 
748 23 = SCH SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, O. 
749 200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
750 40 = ENABLE ATTENTION INTERRUPTS. 
751 20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
752 SEE TS11/TSO4 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
753 24 = DIA DIAGNOSTICS. SEE 1TS11/TSO4 PROGRAMMING SPECIFICATION 
754 FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DA 
755 INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
756 25 = vMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 
757 TABLE, WHERE N IS DEFINED IN THE BRF FIELD. 
758 THE NUMBER OF JUMPS IS ENTERED IN THE #@ OF OPERATIONS FI 
759 26 = OLY DELAY “N” MILISECONDS WHERE N IS DEFINED IN 
760 THE @ OF OPERATIONS. 
761 27 = END END OF COMMAND SEQUENCE. 
re 
sn 2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
766 PATTERN # DESCRIPTION. 
768 ts) INCREMENTING PATTERN. 0 - 377. 
769 1 ALL “1"'S PATTERN. 
770 2 ALL “O”'S PATTERN. 
771 z “1” BIT WALKING FROM R TOL IN A FIELD OF "0”'S. 
772 4 “O" BIT WALKING FROM R TOL IF AFIELD OF “i"'S. 
773 S ALTERNATING “1” AND "O“ BITS WITH ALTERNATE BYTES COMPL 
774 6 ALTERNATING BYTES OF O00 AND 377. 
775 7 RANDOM DATA PATTERN, 
776 & NO PATTERN GENERATION. 
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2.3 EXAMPLES OF SOFTWARE DIALOGUE 


ee “eee eee 


FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


RECEIVE PROMPT (OR>) 
ENTER STA/TES:1-2<CR> 
ANSWER HARDWARE QUESTIONS. 


PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE ERRORS (L)N ? 
HALT AFTER EACH CMD (L) N ? 
INHIBIT RECOVERY (1) N ? 

BAD TAPE SPOT DETECTION (L) ¥ ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RFC ERROR REPORT (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 


Y<CR> 
Y<CR> 
N<CR> 
¥<CR> 
N<CR> 
N<CR> 
¥<CR> 
N<CR> 
N<CR> 
N<CR> 


SEQ 0022 
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2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 


2.3.35 TO 


A) RECEIVE PROMPT (DR>) 

B) ‘ENTER STA/TES:1/FLA:LOE: IER: ISR: IDU<CR> 
C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 

PRINT RECOVERABLE ERRORS (L)N ? 

HALT AFTER EACH CMD (L) N ? 

INHIBIT RECOVERY (L) N ? 

BAD TAPE SPOT DETECTION (L) Y ? 

DISABLE INTERRUPTS (L) N ? 

, INHIBIT RFC ERROR REPORT (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 


: 


SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


Y<CR> 
Y<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
Y<CR> 
N<CR> 


A) RECEIVE PROMPT (DR>? 
8) ENTER STA/TES:5/FLA: LER: ISR: IDU/EOP: 1000<CR> 
C) ‘ANSWER HARDWARE QUESTIONS. 
D) PROCEED WITH THE FOLLOWING DIALOGUE: 
CHANGE SW (L) ? ¥<CR> 
CLEAR COUNTERS (L) N ? ¥<CR> 
RESET RANDOM VARIABLES (L) N ? N<CR> 
_ PRINT RECOVERABLE ERRORS (L) N ? N<CR> 
-. HALT AFTER EACH CMD (L) N ? N<CR> 
INHIBIT RECOVERY (lL) N ? N<CR> 
BAD TAPE SPOT DETECTION (L) Y ? N<CR> 
DISABLE INTERRUPTS (L) N ? Y<CR> 
INHIBIT RFC.ERROR REPORT (L) N ? Y<CR> 
CHANGE CMD’ SEQUENCE (L) N ? Y<CR> 
CHARACTERISTICS CODE (0) 40 ? 40<CR> 
CMD/2 (D) 5 ? 13<CR> 
BRF COUNT -(D). ‘2048 ? 1<CR> 
# OF OPERATIONS (D) 10 ? 1<CR> 
PATTERN CD) , 2. 1<CR> 
CMD/3 (0) 5 4<CR> 
BRF (D) 3088? 1000<CR> 
® OF OPERATIONS (D) 10 ? 10000<CR> 
PATTERN £0) 7? 1<CR> 
CMD/4. (0D) 5 ? 27<CR> 
BRF (D) 2048 ? <tZ> 


SEQ 0023 


CREWIND) CCOULD 


CWRITE) CCOULD B 


CEND ) 


{COULD B 
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2.4 EXECUTION TIMES 


2.4.1 SYSTEM CONFIGURATION 


POP11734 
MOS MEMORY 


LA36 
TS11/TSO4 


2.4.2 TEST EXECUTION TIMES 


- BASIC FUNCTIONS - 30 SECONDS PER PASS. 

- DATA RELIABILITY - 45 MINUTES PER PASS. 

- WRITE COMPATABILITY - 20 MINUTES PER PASS. 

- READ COMPATABILITY - 20 MINUTES PER PASS. 

- OPERATOR SELECTED SEQUENCE - DEPENDS ON SEQUENCE SELECTED. 


ALL EXECUTION TIMES ARE SHOWN FOR ONE UNIT OEPRATICN. 
APPROXIMATELY 10% WILL BE ADDED TO ALL EXECUTION TIMES 
FOR EACH ADDITIONAL UNIT. 


SEG 


Me 
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869 3.0 ERROR INFORMATION 
PR a, ee OT a he OD ee) BR . eee eene. anes 
871 
872 
873 3.1 ERROR REPORTING 
Sea ee ee ee ere oy eee en 
87 
876 ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A DUMP 
444 OF THE FOLLOWING INFORMATION: 
87 ERROR #, TEST #, SUBTEST #, PROGRAM COUNTER, UNIT #, 
880 COMMAND, PREVIOUS COMMAND, PASS COUNT, # OF 
881 RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 
882 TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 
oe (SEE 2.3.14.1 FOR LIST OF COMMANDS). 
84 
885 STANDARD ERROR REPORT FORMAT: 
886 
887 CZTSH SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 
888 CASCII ERROR MESSAGE ) 
889 XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXxXxX 
890 PREVIOUS CMD WAS XXX * RECORD READ: XXXXX « 
891 CMDPKT TSBA RFC TSSR 76 
892 XXXXXX XXXXXKX XRXXXXKX XXKXXXK X 
893 XXXXXX 
894 XXXXXX 
895 XXXXXX 
896 xSTo xST1 xST2 xST3 
897 3 XXXXXX  XXXXXK XNXXXAXXKX XRXXAXXX 
898 
899 ’ 
a * CAUTION « 
902 INTERPRET THAT “RECORD READ” COUNT WITH CAUTION. 
903 IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOST 
904 POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
905 RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 
906 ' READ FROM TAPE. 
907 IN TEST 2, IF OIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD 
908 IS RESET TO ZERO ALTHOUGH TAPE WAS NOT REWOUND. THIS IS 
909 NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 
910 ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 
911 BEFORE RESTARTING OR CONTINUING. 
912 IT IS SUGGESTED THAT A “PRINT” BE REQUESTED WHEN HALTING DI 
aoe TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 
aoe EXAMPLE OF AN ERROR REPORT: 
917 CZTSH SFT ERR 00009 IST 002 SUB COCO PC: 010606 
918 RECOVERABLE ERROR 
919 WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 
920 PREVIOUS CMD WAS WRT 
921 CMOPKT TSBA RFC TSSR tcc 
922 100005 002324 OO00000 100210 4 


923 051766 
000000 
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5.1.5.8 
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000371 
xSTO xST1 xST2 XST3 
000350 000002 100004 000000 


ERROR #1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
CoaneeT OF lage FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


ERROR #2 - TSO4 NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO THE TSO04, THE SUBSYSTEM READY 
BIT IN THE TSS4 IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
OPTION IS USED. 


ERROR #3 - NO RESPONSE ERROR: 


ONCE THE TSOB IS LOADED, THE TS04 HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE IDU OPTION IS USED. 


ERROR #4 - NO INTERRUPT ERROR: 


COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 


SPECIAL CONDITION ERRORS: 

IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
ogee HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 
THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS 5ET: 

ERROR #5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 


THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 
AND THE PROGRAM PROCEEDS NORMALLY. 


3.1.5.2 ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 


SEQ 0026 


54 
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981 THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

2 SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
98% ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
984 THE IDV OPTION IS USED. 
985 
986 
98° 3.1.5.3 ERROR @7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 
988 
989 A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
990 TO THE PROGRAM. 86ITS OF INTEREST INCLUDE TMK, RLS, LET, Ril, EOT. 
991 ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 
992 IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND 
993 A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 
994 
995 
396 5.1.5.4 ERROR #8 - TERMINATION CLASS CODE 3, FUNCTION REJECT 
997 
998 THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
999 RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA. THIS IS A FATAL 
i DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 
1001 . UNLESS THE IDU OPTION IS USED. 
983 
er$ 31.5.5 ERROR 09 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR 
1 
1006 TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
1007 THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
1008 ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
1009 : IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
1010 IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 
ee 
ate 3.1.5.6 ERROR @10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 
1015 TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
1016 ERROR AND RE -ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
1017 REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
1018 IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 
B33 
oat 3.1.5.7 ERROR 011 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 
i023 TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PRUCEOURE IS 70 
1024 REWIND AND START OVER AT GOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
1025 NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND 
1026 RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 
ae DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE [OU OPTION IS USED 
1029 
sees 3.1.5.8 ERROR 012 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 
1032 THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANOS OR AT 
1033 LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
1034 FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR 
1035 MATION ON THE TYPE OF FATAL ERROR, Tree DEVICE WILt BE DROPPED 


1036 FROM THE TEST CYCLE UNLESS THE IOU OPTION [S USED. 


C4 
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1037 
1038 
pat 3.1.6 ERROR 013 - RFC NON-ZERO ERROR: 
oo 
1041 IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, THE 
1042 ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
1043 PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
1044 IS OPTIONAL. 
1045 
1046 
ae 3.1.7 ERROR 014 - RETRY LIMIT EXCEEDED: 
104 
1049 ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
Seas WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
1051 
1052 ON A READ COMMAND THIS ERROR IS LOGGE)) AS A HARD ERROR AND 
1053 THE PROGRAM PROCEEDS NORMALLY. 
1054 
1055S 
1056 3.1.8 ERROR 015 - TOO MANY INTERRUPTS: 
105? 
1058 IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 
1059 THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
por THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
1061 
1062 
oes 3.1.9 ERROR 016 - CAPSTAN RUNAWAY; 
1065 CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 
1066 COMMANDO. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
1067 THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 
1068 WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 
1069 THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
thy THE TEST CYCLE UNLESS THE [DU OPTION IS USED. 
1072 
hy 3.1.10 ERROR 017 - DATA COMPARE ERROR: 
,s ‘ 
1075 IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 
1076 THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
1077 DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED 
1078 ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 
1079 THE TOTAL © OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 
ieee HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 
1082 
1083 3.2 ERROR HALTS 
1084 oe ete e tenes 
1085 
1086 ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 


1087 WITH /FLAG:HOE. THERE’ ARE NO OTHER HALTS, 
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1088 4.0 PERFORMANCE REPORT 
ee ee a ee ee 
1090 
1091 i UNIT X PASS: XXXXX RECORD: Xxxxx 
1092 BYTES WRITTEN XXX,XXX,XXX, XXX 
1093 BYTES READ REV XXX,XXX,XXX, XXX 
1094 BYTES READ FWD XXX,XXX, XXX, XXX 
1095 WRT ROR ROF 
1096 RECOVERABLE ERRORS XXXXX XXXXX XXXXX 
1097 UNRECOVERABLE ERRORS XXXXX XXXAX KKK 
1098 
1099 SPEC COND HARD FATAL COMPARE 
1100 XXXXX = oKXXKK —oXKKKK MK XK 
1101 
1102 
1103 
1104 
1105 
1106 5.0 TEST SUMMARIES 
DY a ee ee ee ee eee 
1108 
44H o.8 TEST 1 - BASIC FUNCTIONS. 
ttt EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL 7S04 FUN 
1113 SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
1114 + SET CHARACTERISTIC 200. 
1115 ¢ ORIVE INITIATE. 
llic ¢ SET CHARACTERISTIC 20. 
1117 + GET STATUS 
1118 + SET CHARACTERISTIC 40. 
1 « PRINT TSO4 MICROCODE LEVEL (PASS 1 ONL 
1121 SUBTEST 2 - REWIND. 
1122 + REWIND. 
1123 « REWIND AT BOT. 
1124 
1125 SUBTEST 3 - WRITE/VERIFY. 
1126 ¢ WRITE/VERIFY PATTERN 1. 
112? ¢ WRITE/VERIFY PATTERN 2. 
1128 ¢ WRITE/VERIFY PATTERN 3. 
1129 + WRITE/VERIFY PATTERN 4, 
1130 + WRITE/VERIFY PATTERN S. 
1131 * WRITE/VERIFY PATTERN 6. 
1152 ¢ WRITE/VERIFY PATTERN 0. 
1134 SUBTEST 4 - WRITE TAPE MARK, ERASE. 
1135 ¢ WRITE TAPE MARK, 
1136 + WRITE 10 RECORDS 
1137 ¢ ERASE 10 TIMES 
1138 + WRITE TAPE MARK, 
1159 + WRITE TAPE MARK RETRY 
1141 SUBTEST 5 - SPACE FILES. 
1142 ¢ SPACE 2 FILES REVERSE. 
1142 ¢ SPACE 2 FILES FORWARD. 


ES 
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1144 + SPACE 2 FILES REVERSE. 
1145 + SPACE 2 FILES FORWARD. 
1146 
1147 SUBTEST 6 - SPACE RECORDS. 
1148 + REWIND. 
1149 + SPACE 7 RECORDS FORWARD. 
1150 + SPACE 7 RECORDS REVERSE. 
1151 + SPACE 7 RECORDS FORWARD. 
1152 + SPACE 7 RECORDS REVERSE. 
1152 
1154 SUBTEST 7 - WRITE RETRY. 
1155 + REWIND. 
1156 + WRITE DATA. 
115? + WRITE RETRY. 
1158 
1159 SUBTEST 8 - READ REV RETRY. 
1160 + READ REVERSE. 
1161 + READ NEXT REVERSE. 
1162 * READ NEXT FORWARD. 
116 
1164 SUBTEST 9 - READ FWD RETRY. 
1165 + READ FORWARD. 
1166 + READ PREVIOUS FORWARD. 
1167 + READ PREVIOUS REVERSE. 
1168 
1169 SUBTEST 10 - CLEAN. 
1170 + CLEAN. 
te — ¢ REWIND. 
c 
1173 3 SUBTEST 11 - WRITE/VERIFY SWAPPED DATA BYTES. 
1174 + WRITE/VERIFY EVEN LENGTH (RECORD 1). 
1175 ; + WRITE/VERIFY ODD LENGTH (RECORD 2). 
1176 + SET DATA BYTE SWAP. 
1177 + WRITE/VERIFY EVEN LENGTH (RECORD 3). 
1178 + WRITE/VERIFY ODD LENGTH (RECORD 4). 
Has : EW Sere bf tae 
1181, SUBTEST 12 - READ SWAPPED DATA BYTES. 
1182 + READ REV RECORD 4. 
1183 + READ REV RECORD 3. 
1184 + SET DATA BYTE SWAP. 
1185 ¢ READ REV RECORD 2. 
1186 + READ REV RECORD 1. 
1187 * READ FWD RECORD 1. 
1188 + READ FWD RECORD 2. 
1189 + CLEAR DATA BYTE SwaP, 
1190 + READ FWD RECORD 3. 
1191 , + READ FWO RECORD 4. 
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1192 3.2 TEST 2 - DATA RELIABILITY. 
1193 
1194 1. THE TAPE IS INIZIATED WITH THE FOLLOWING COMMANDS: 
1195 SET CHARACTERISTIC 40 
1196 - REWIND 
1197 WRITE/VERIFY 31 RECORDS OF RANDOM LENGTH AND DAT 
1198 2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND 
1199 EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM 
1200 LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REA 
1201 3. AT THE ENO OF EACH PASS, A REWIND COMMAND IS ISSUED 
1202 A PERFORMANCE REPORT IS PRINTED. 
1203 
1204 NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
1205 TEST 1, THE INITIAL REWIND COMMAND IS NO 
i207 | 
1 ” 
1208 3.5 TEST 3 - WRITE COMPATABILITY/WRITE UTILITY. 
1209 
1210 REWINOS AND WRITES RECORDS OF RANDOM LENGTHS 
le2ll AND RANDOM DATA FROM BOT TO EOT. 
l2le 
1213 
1214 5.4 TEST 4 - READ COMPATABILITY/READ UTILITY. 
1215 
<. REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 
121 
1218 
4th 5.5 TEST S - EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
Vv 
1221 THE SEQUENCE OF COMMANDS ENTERED EY THE OPERATOR 
1222 IS EXECUTED. IF NO COMMANDS WERE ENTERED, A 
1223 DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FWO/REWIN 
1224 OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 


1225 AND RECORD LENGTH OF 2048 BYTES. 
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1226 6.0 DEVICE INFORMATION TABLES 
Ny Oe oe ee ee rr ee 
1228 
1229 6.1 GENERAL 
eee seeeee 
1231 
1232 THE TSO4 TAPE SUBSYSTEM CONSISTS OF A 1TS11 UNIBUS TO SERIAL BUS 
1233 CONTROLLER CONNECTED TO A TSO4 DRIVE. FROM A SOFTWARE VIEWPOINT 
1234 THIS CONFIGURATION IS UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 
ae OF WAYS: 
1237 A. ONLY ONE REGISTER MAY BE WRITTEN - TSOB (TAPE SYSTEM 
1238 DATA BUFFER), 
1239 
1240 B. TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
1241 REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 
1242 
1243 C. COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
1244 POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME - 
1245 WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED Br 
1246 THE TSO4 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
1247 PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 
1248 
1249 1. COMMAND WORD 
1250 2. LOW ORDER BUFFER ADDRESS 
1251 3. HIGH ORDER BUFFER ADDRESS 
s23e 4. BYTE COUNT 
1254 D. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
1255 ESSARY TO DETERMINE WHETHER: 
1256 1. THE DRIVE IS READY TO ACCEPT ANOTHER COMMAND, 
1257 2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 
1258 IF ELTHER OF THE ABOVE CONDITIONS IS UNTRUE AT “JOB DONE” 
1259 OR “COMMAND INITIATION” TIME,IT MAY BE NECESSARY 
1260 TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
1261 ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 
1263 E. EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM 
1264 ORIVE REGISTERS; RATHER, A “GET STATUS" COMMAND 
1265 IS ISSUED WHICH WILL CAUSE THE TSO4 TO TRANSFER EXTENDED 
1266 STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 
1267 BUFFER ADDRESS OF THE “GET STATUS” COMMAND. THERE ARE FOUR 
44 EXTENDED STATUS REGISTERS. SEE 6.3. 
1270 F. THE TSDB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 
1271 PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 
1272 CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
i278 SUBSYSTEM INIT. 
1275 G. COMMAND PACKETS MUST RESIDE ON DIVIDE By FOUR 
1276 MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE By 2 OR WORD 
4h BOUNDARIES) . 


SEQ 0032 
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160 


164 


UNIBUS 


772520 
772522 


772524 
772526 


772530 
772532 


772534 
772536 


REGISTER 


TSBA/TSOB 
TSSR 
TSBA/TSDOB 
TSSR 


TSBA/TSDB 
TSSR 


TSBA/TSDB 
TSSR 
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BIT DEFINITIONS FOR TS11/TSO4 REGISTERS 


TS11/TSO4 REGISTER SUMMARY 


ee ee 
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!0PM! t SIP !BPE!CAF 
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Ps = in 


eres fee rs 
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ee ee 


ee ee eee ry 


oe ee 


MICRO " DIAGNOSTIC ERROR CODE 


@-- +62 -- 6 ---8 


(08 07 06 
1 A08!A07!A06! 
eee eee 
1P08!P07!P06! 
a J 
DE ning 
!A16!SSRIOFL! 
= et ae 
e---6---6---% 
---¢--- e---¢ 
HILASMOT !ONL! 
4, 23S 
!  SIPRISYN! 
ff  t0RP! 
e--- 6 -- oes b 
{OTP !DT7!0T6! 
J 
e--- 6 ---b- +e 
1LMX!OPT! 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


NORMAL TERMINATION 
ATTENTION CONDITION 
TAPE STATUS ALERT 
FUNCTION REJECT 


NOU Swhvro 


FATAL 


oO 
1 
es 


RECOVERABLE ERROR - TAPE POSITION = ONE 


DOWN TAPE FROM START OF FUNCTION 


RECOVERABLE ERROR 
UNRECOVERABLE ERROR - TAPE POSITION LOST 


FATAL CONTROLLER ERROR 
CLASS CODES (TSSR FCO-FC1): 


MICRO DIAGNOSTIC FAILURE (DISPLAYED IN TS04 OPERATOR PANEL AND 

I/O SEQUENCER CROM PARITY ERROR. 

MICROPROCESSOR CROM PARITY ERROR. 
SILO PARITY ERROR, 
SERIAL BUS PARITY ERROR DETECTED AT TS11 (SPE). 
SERIAL BUS PARITY ERROR DETECTED AT TSO4 (BPE). 
FATAL ERROR HALTS 1750-1777 IN TSO4 PROGRAM COUNTER DISPLAY. 

LOSS OF AC POWER HAS BEEN DETECTED. 


- TAPE NOT MOVED 


05 04 O83 


e---6---6---% 
— 1s 


Tree Pees ee 


HIE EVCK IPED! 
9 


b--- 6 ---b---% 
SIPO!IED!POS! 
eSPNELCOINENS 


RECORD 
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1354 
1355 
1356 6.3.2  T1S11 STATUS REGISTER (TSSR) 
1 ae re ee ee 
1358 
1359 i 
1360 UNIBUS ADDRESS + 2 - READ ONLY 
1361 
1362 15 14 13 12 11 10 09 08 07 06 0S 04 O83 02 O1 
1 ee! ee eee eee eee ee ee ee eee ee eee eee eee! ee eee eee eee ee ee ee 
1364 sc ! LUPE !SPE {RMR tNRMENBALAL7! tALG!SSRIOFL! sFcatFcor rca: rTC1! rot 
1365 $ $ ! 
1366 e--+-+¢ eOn~-- Oe eee Hb @--- 6-6 - = - 6 e--- t+ = = - = = e- -~e- <= - be eH & e---+e-- -6¢ 
1367 
1368 
1369 BIT NAME TCC DEF INITION 
1370 ee, eee ee 
1371 ' 
1372 15 «6sc Ss SPECIAL CONDITION. WHEN SET, INDICATES THAT 
137 THE LAST COMMAND DID NOT COMPLETE WITHOUT 
1374 INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS 
1375 DETECTED OR AN EXCEPTION CONDITION OCCURRED. 
1376 EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
1377 COMMANDS, REVERSE MOTION AND AT BOT, EOT WHILE 
1378 WRITING, ETC. MAY ALSO BE SET BY THE ERROR 
1379 BITS CONTAINED IN THE TSSR REGISTER: UPE, SPE, 
1380 RMR, AND NXM. THE TERMINATION CLASS BITS ARE SOMET 
1361 OTHER THAN O (UNLESS RMR IS THE ONLY ERROR - SEE RM 
1383 14 +UPE 4/5 UNIBUS PARITY ERROR. SET BY THE TS11 WHEN IT 
1384 DETECTS A PARITY ERROR ON THE UNIBUS DATA WHEN 
1385 TRANSFERRING TO OR FROM THE CPU'S MEMORY. 
1387 13 SPE 7 SERIAL BUS PARITY ERROR. THIS BIT IS SET By 
1388 THE TS11 WHEN IT DETECTS A SERIAL BUS PARITY 
1389 ERROR ON DATA RECEIVED FROM THE TSO04. 
1391 12 RMR Ss REGISTER MODIFICATION REFUSED. SET BY THE TS11 
1392 WHEN A COMMAND POINTER IS LOADED INTO TSOB AND 
1393 SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 
1394 THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATIO 
1395 CLASS (IN FACT, THE TSO4 NEVER SEES THIS ERROR) 
1396 BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 
1397 COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 
1398 NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
1399 OF EITHER A FATAL CONTROLLER ERROR OR A SOF TWARE 
aot a 
1402 11 NXM 4/5 NON-EXISTENT MEMORY. SET BY THE TS11 WHEN 
1403 TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
1404 WHICH DOES NOT EXIST. MAY OCCUR WHEN FETCHING 
1405 THE COMMAND PACKET, FETCHING OR STORING DATA, 
1006 OR STORING THE MESSAGE PACKET. 
1408 10 NBA §S NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 


1409 : THE 1SO4 NEEDS A MESSAGE BUFFER ADDRESS. THIS 


KS . 
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1410 BIT IS CLEARED DURING THE SET CHARACTERISTICS 
1411 COMMAND CIF A GOOD ADDRESS WAS GIVEN). 
1412 
1413 09 AI?) § BUS ADDRESS BIT 17. A17 AND A16 (BIT 08) TRACK 
1414 THE VALUES OF BITS 17 AND 16 OF THE TSBA 
1415 REGISTER. 
iis 
1418 08 Al6 § BUS ADDRESS BIT 16. SEE Al? (BIT 09). 
1419 
1420 07 SSR S SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
1421 TS11/TSO4 SUBSYSTEM IS NOT BUSY AND IS READY TO 
1422 ACCEPT A NEW COMMAND POINTER. 
142 
1424 06 OFL S,1,3 OFF-LINE. WHEN SET, INDICATES THAT THE TSO4 IS 
1425 OFF-LINE AND UNAVAILABLE FOR ANY TAPE MOTION 
1426 COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
1427 OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 
142 
1429 o> FCL 7 FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
1430 04) ARE USED TO INDICATE THE TYPE OF FATAL 
1431 ERROR WHICH HAS OCCURRED ON THE TS04. THESE 
1432 BITS ARE VALID ONLY WHEN SC IS SET AND THE 
1433 TERMINATION CLASS CODE BITS ARE ALL SET (111). 
1435 04 FCO 7 FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 
1437 os ver 6 TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
1438 THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
1439 WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
1440 ON A COMMAND. EACH OF THE EIGHT POSSIBLE 
1441 VALUES OF THIS FIELD REPRESENT A PARTICULAR 
1442 CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
1443 IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
1444 APPLICABLE, RECOVERY PROCEDURES. THE CODE 
1445 PROVIDED IN THIS FIELD IS EXPECTED TO BE 
1446 UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
1447 HANDLING OF THE CONDITION. 
1449 a: TERMINATION CLASS BIT O1. SEE TC2 (BIT 03). 
1451 01 co § TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
1453 ; oa . NOT USED. 
1454 
1455 
1456 
1457 
1458 UNIBUS ADDRESS + 2 - WRITE ONLY 
1459 : 


1460 SUBSYSTEM INITIALIZE 
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TSHD P11 06 -APR-84 08:49 MSCNTOP GPRM COUNT OPTION SEQ 0037 
1461 

1462 

1463 6.3.3 EXTENDED STATUS REGISTER O (XSTATO) 

AG 6 ae RRS COON eSme wee nen een és 

1465 

1466 

1467 15 14 13 12 11 10° 09 08 O7 06 05 04 O03 02 O1 
1468 e---6 = -- 6 --- bo -e Ce ee ee ee ee ee 2 ee ee fee! 2 eee ee | 
1469 TMK! IRLSILETIALL! tWLE!NEF TLC! tTLA!MOT ONL! 'IE !VCKIPED! !wLK!BOT! 
1470 ' :! ! ! '! ! ' .2 ‘ ' ts ' ' 
1471 e---6¢ exdiwie --b- + +6 mibthbnedine® Ce See oe 2 ee ee fee ae ee fe | 
1472 

1473 

1474 BIT NAME TCC DEF INITION 

1475 ett pines dubai “oh bs) aoeeaiemetha 

1376 

147 15 TMK S.2 TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 
1478 WAS DETECTED DURING A READ, SPACE, OR SKIP 
1479 COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
1480 OR WITE TAPE MARK RETRY COMMANDS. 

1481 

1482 14 =RLS 2 RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
1483 EITHER THE RECORD’S LENGTH WAS SHORTER THAN THE 
1484 BYTE COUNT ON READ OPERATIONS, A SPACE RECORD 
1485 OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE 
1486 THE POSITION COUNT WAS EXHAUSTED, OR A SKIP 
1487 TAPE MARKS COMMAND WAS TERMINATED By 
1488 ENCOUNTERING BOT OR A DOUBLE TAPE MARK (CIF THAT 
1489 OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
ote EXHAUSTING THE POSITION COUNTER. 

1492 13. «LET 2 LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
1493 MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
1494 MARKS ARE DETECTED OR WHEN MOVING OFF OF BOT 
1495 AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
1496 MARK. THE SETTING OF THIS BIT WILL NOT OCCUR 
1497 UNLESS THIS MODE OF TERMINATION IS ENABLED 
sate THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 
1500 12 = RLL 2 RECORD LENGTH ‘ONG. WHEN SET, THIS’ BIT 
1501 INDICATES THAT THE RECORD READ WAS LONGER THAN 
1308 THE BYTE COUNT SPECIFIED. 

1504 11 we 3,6 WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
1505 WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
1506 DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
1307 LOCK SWITCH ACTIVATED DURING THE OPERATION. 

1509 10 NEF 3 NON-EXECUTABLE FUNCTION. WHEN SET, INDICATES 
1510 THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
te ONE OF THE FOLLOWING CONDITIONS: 

1513 - THE COMMAND SPECIFIED REVERSE TAPE 
1514 DIRECTION BUT THE TAPE WAS ALREADY 
1515 POSITIONED AT BOT. 


1516 - THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 
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ILC 


ILA 


MOT 
ONL 


IE 


vcK 


PED 


WLIK 


BOT 


EoT 


MS 


s.3 


S.2 


_ SEQ 0038 


UNLOAD, OR A COMMAND WITH THE CLEAR VOLUME 
CHECK (CVC) BIT SET, WHEN THE VOLUME CHECK 
BIT IS sET. 

- ANY COMMAND, EXCEPT GET STATUS OR ODORIVE 
INITIALIZE, WHEN THE TSO4 IS OFF-LINE. 

- ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS - WLS). 


ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED. ) 


TAPE IS MOVING. 


ON LINE. WHEN SET, INDICATES THAT THE TSO4 IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
ee.” ENABLE BIT SUPPLIED ON THE LAST 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
(CvC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3 


“PHASE ENCODED DRIVE. WHEN SET, INDICATES THAT 


THE TSO4 IS CAPABLE OF READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. WHEN RESET, 
INDICATES THAT THE TSO4 HAS ONLY 800 BPI NRZI 
DATA CAPABILITIES. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
aga BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
IS POSITIONED AT OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. DOES NOT RESET UNTIL THE 
TAPE PASSES OVER THE REFLECTIVE STRIP IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 


NS 
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1572 
1573 
a. 6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 
BOR Te i Ne eS Te et eee Om Oe 
157 
1877 
rth 15 14 7. 12 11 neh ~~ 08 eg 06 press 04 03 02 Ol 
157 e---6 b---6---6--- ¢ 6---6---4+--- ee fee een ee eee! eee eee ee ees 
1580 tOLT! $ rCORICRS:! 2 TIG: DBF !SCK: ’ tIPRISYN! tIPS!TED!POS! 'POL!UNC! 
1581 H es 7 3 !NZO! $! H 'ORP! !ITMILCO!NZN! !LRC!ICRC! 
1582 @---6 b---¢6- a een See eee Se ees een Seen Se eee eee eee ee eee ee | 
1583 
1584 
1585 BIT NAME TCC DEFINITION 
138° Sea eae os 
1588 15 DLT 4 DATA LATE. SET WHEN THE I/O SILO IS FULL ON A 
1589 READ OR EMPTY ON A WRITE. THESE CONDITIONS 
1590 OCCUR WHENEVER THE UNIBUS LATENCY EXCEEDS THE 
tt DATA TRANSFER RATE OF THE TSO4. 
1592 
1595 a . NOT USED. 
1595 13 COR S CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
ty: CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 
1598 : 12 CRS a CREASE DETECTED. FOR NRZI, ALL DATA TRACKS 
1599 DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
1600 BUT FOR LESS THAN .1 INCHES OF TAPE. FOR PE, 
1601 EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
1602 LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
eet WAS DETECTED. 
1605 11 TIG 4 TRASH IN THE GAP. NON-ERASED DATA WAS DETECTED 
1606 IN A GAP DURING A READ, WRITE, WRITE TAPE MARK, 
ote OR ERASE COMMAND. 
1609 10 OBF 4 DESKEW BUFFER FAIL. ONE OF THE DESKEW BUFFERS FAILED 
1610 TO ASSERT "OUTPUT READY” WITHIN 20 MICROSECONDS 
1611 AFTER BEING ENABLED. THE DEAD TRACK BITS WILL 
1612 INDICATE ON WHICH TRACKS THIS FAILURE OCCURRED. 
1613 THIS ERROR IS PROBABLY A RESULT OF A BROKEN FOR- 
1614 MATTER, 
1615 
lel? NZO6 4 NRZ FIFO OVERRUN. 
1618 09 Sck 4 SPEED CHECK. TAPE SPEED WAS OFF BY MORE THAN 
1619 5s DURING A WRITE DATA OPERATION. NOTE THAT SPEED 
1620 AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE OFF 
1621 58 TO CAUSE THIS ERROR. 
1622 
1623 Os - - NOT USED. 
1624 J ’ 
1625 oO? IPR S,4 INVALID PREAMBLE. SET ON A PE ORIVE IF _ THE 
1626 PREAMBLE APPEARS TO BE SHORTER THAN 36 


1627 CHARACTERS OR LONGER THAN 44 CHARACTERS. ALSO 
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1628 
1629 
1630 
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os 


03 


02 


01 


00 


SYN 


ORP 


LRC 


MTE 


vPE 
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B44 


SET IF THE PREAMBLE IS _INCORRECTLr ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
TENTH CHARCTER IN READ-AFTER-WRITE. 


SYNCH FAILURE. SET ON A PE ORIVE IF _ THE 
FORMATTER WAS UNABLE TO ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE. 


NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 
WAS TO BE CONSIDERED CRC). 


INVALID POSTAMBLE. SET ON A PE ORIVE OURING 
READ OR WRITE IF ANY OF THE FIRST 39 CHARACTERS 
OF THE POSTAMBLE ARE NUT READ CORRECTLY. 


ILLEGAL TAPE MARK FOR NRZ. 


INVALID END DATA, FOR PE, EIGHT OUT OF NINE 
TRACKS WENT DEAD BEFORE THE POSTAMBLE WAS DETECTED. 


FOR NRZI, DATA WAS NOT DETECTED IN EITHER THE 
LRCC OR CRCC WINDOWS. (LRC WAS ZERO) 


POSTAMBLE SHORT. SET ON PE DRIVES OURING A 
READ OR WRITE WHEN LESS THAN 38 ALL -ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL -ONES 
CHARACTER, 


NRZ NOISE RECORD (FEWER THAN 13(10) FRAMES). 


POSTAMBLE LONG. SET ON PE DRIVES DURING READ 
OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
42 CHARACTERS. 


LRC ERROR. SET ON NRZI ORIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR, 


UNCORRECTABLE DATA. SET ON PE DRIVES WHEN 4 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 


CRC ERROR. SET ON NRZI ORIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR, 


MULTI-TRACK ERROR. SET ON PE DRIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 


VERTICAL PARITY ERROR, SET ON NRZI ORIVES WHEN 
a 9 Treks OID NOT CONTAIN AN O00 NUMBER OF 
ONE BITS. 


SEQ 0040 


C4 
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1679 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT?2) 
1680 te ee ee ee ee eee eee wee soe 
1681 
1682 
1683 15 14 13 12 11 10 O09 08 O7 06 0S 04 O83 02 Ol 
1683 eee ee eee eee eee ee eee ee Ce een ee eee ee ee eee eee ee ees eee | 
1685 !OPM! !SIP!BPE!CAF! ! 'wCF ? $ !DTPIDT7!D0TE! tOTS!DT4!OTS! !OT2e!orT1! 
1686 : . . H | : 3 $ ’ a H g 4 HY H $$ g g 
1687 * @ 0+ =--0--- 6-5-8 O- 2-8 eee! Oe eee eee fee! ee ee! eee fee! ee eee ee | 
1688 
1689 
1090 BIT NAME TCC DEF INITION 
1691 a ae rer ere Tee 
16%2 
1693 15 OPM S OPERATTON IN PROGRESS. (TAPE MOVING) 
1694 
1695 14 sie 7,F2 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
1696 ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
1697 ; MESSAGE PACKET. 
1698 
1699 13 BPE 7,F2 SERIAL BUS PARITY ERROR AT ORIVE. SET BY THE 
1700 TSO4 WHEN A PARITY ERROR IS DETECTED ON DATA 
1701 TRANSMITTED FROM THE TS11 TO THE TSO4. CAUSES FATAL 
1702 CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
pie THE TRANSMISSION OF THE MESSAGE PACKET. 
1 
1705 12 car 7 CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
1706 TAPE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
1707 : AND FOUND TO BE OUT OF TOLERANCE BY MORE THAN 
1708 : 10s. 
1709 
ty 11 - . NOT USED. 
17le 10 wer 7? THE WRITE BOARD IS NOT EMPTYING THE T/0 SILO AT 
1713 ‘ THE PROPER RATE. THIS ERROR CAN BE THE RESULT OF 
1714 THE WRITE BOARD CLOCK NOT JEING TURNED ON (BROKEN 
1715 HARDWARE ). 
1716 
ithe 09 - : NOT USED. 
1719 08 OTP S DEAD TRACK PARITY, THE BITS OTP THROUGH DTO 
1720 INDICATE WHICH TRACK(S) WENT DEAD, IF ANY, 
1721 DURING THE LAST DATA TRANSFER OPERATION. If 
1722 DESKEW BUFFER FAIL (OBF) IS SET, THESE BITS 
$544 INDICATE WHICH CHANNEL FAILED. 
Bas 0? OT? S DEAD TRACK 7, SEE DTP, 
1726 
4 06 DT6 S DEAD TRACK 6. SEE DTP, 
eH 05 oT5 S DEAD TRACK 5, SEE OTP, 
ht: 04 O14 S DEAD TRACK 4, SEE DTP. 
1732 


1733 os oOT3 S DEAD TRACK 3, SEE DTP, 
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MSCNITOP; 


02 
Ol 
00 
NOTE: 


GPRM COUNT OPTION 


DT2 bs) DEAD TRACK 2. SEE DIP, 
OT1 S DEAD TRACK 1. SEE DTP. 
DTO S DEAD TRACK 0. SEE DIP, 


ON A SET CHARACTERISTICS COMMAND, THE UCODE LEVEL IS RETURNED 
IN OT7 THRU DTO. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT CINTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 


SEQ 0042 


F4 
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1745 
1746 
peu 6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 
Se ae ek a a te ae re i rnert ey nee 
1749 
1750 
He 15 14 = sae _ ae ~~ 08 O07 — ved 04 ~ 02 O1 
17 eee ee eee eee ees ee een ees ees ee ees ee ees ee ees eee O--+6---0 
1753 ' MICRO DIAGNOSTIC ERROR CODE HL MKtOPT! tREV ICRF 10K: NOT ILXS! 
17 
1755 Coe SH ee Hera Fer eH Fee HmseHeseG HPessePoanGeaeh FesaHsseHessH Here Foess 
1756 
1758 BIT NAME TCC DEF INITION 
1759 --- weet eee 
1760 
1761 15 TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
1762 ALL ERROR CODES IN THE TABLE WILL BE DISPLAYED ON 
1763 THE TSO4 CONTROL PANEL BUT ONLY CODES HIGHER THAN 
1764 110 WILL BE AVAILABLE TO CPU DIAGNOSTICS FOR PRINTOUT 
1765 IN THE MICRO DIAGNOSTIC ERROR CODE FIELD OF XSTATS. 
1766 THIS ERROR CODE FIELD IS VALID ONLY WHEN THE 
1767 TERMINATION CLASS CODE IN THE TSSR EQUALS 7 AND THE 
1768 FATAL CLASS CODE IN THE TSSR EQUALS O, INDICATING 
ie AN INTERNAL DIAGNOSTIC FAILURE. 
1771 07 NTL 6 LIMIT EXCEEDED. SET WHEN THE TAPE TENSION ARMS 
1772 HAVE EXCEEDED THEIR ALLOWABLE TRAVEL AND HAVE 
1773 CAUSED THE ACTIVITATION OF THE LIMIT SWITCHES. 
i. NO TENSION EXISTS ON THE MOUNTED TAPE. 
1776 06 OPI 6 OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
1777 OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
.99 WITHOUT DETECTING ANY DATA ON THE TAPE. 
1780 05 REV S DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
tes IS O IF REWIND OR FORWARD) 
1783 04 CRF 7 CAPSTAN RESPONSE FAILURE. A MOTION COMMAND WAS 
1784 GIVEN TO THE CAPSTAN BUT WE DID NOT GET A TICK 
Foor BACK WITHIN A REASONABLE AMOUNT OF TIME. 
1787 03 oCK S.6 DENSITY CHECK. SET ON PE ORIVES WHEN A PE 
1788 IDENTIFICATION BURST WAS NOT DETECTED WHEN 
1789 MOVING OFF OF BOT. SET ON NRZI DRIVES WHEN A 
1790 NON-NRZI oy am BURST WAS FOUND WHEN 
he MOVING OFF OF BOT 
1793 02 NOI 6 NOISE RECORD. SET OURING A READ OR SPACE 
1794 OPERATION WHEN A BURST OF FLUX CHANGES, WHICH 
1795 DO NOT QUALIFY AS A RECORD (BUT TOO MANY 10 
Peet IGNORE), ARE DETECTED: 
1798 NRZI: AT LEAST TWO CHARACTERS IN A ROW BUT 
1799 LESS THAN TWELVE, FOLLOWED By A CHARACTER IN 


1800 EITHER THE CRCC OR LRCC WINDOWS, 


FA 
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1801 
1802 PE: AT LEAST 24 CHARACTERS IN A ROW THAT DO 
1803 NOT QUALIFY AS A TAPE MARK OR A DATA 
1804 PREAMBLE. 
1 
1806 Ol LXS Ss LIMIT EXCEEDED STATICALLY. THIS BIT IS SET ANY 
1807 TIME THE LIMIT SWITCHES ARE EXCEEDED. THIS BIT 
1808 CAN ONLY BE CLEARED BY MANUALLY LOADING THE TAPE. 
1809 
1810 
1811 
1812 00) = RIB 2 REVERSE INTO BOT. A READ, SPACE, OR SKIP 
1813 COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
1814 BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
1815 DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 
1816 
1817 
1818 
1819 MICRO DIAGNOSTIC ERROR CODES 
Bes Meee FS mise Suhre re 

1 
1822 FOLLOWING IS A LIST OF THE ERRORS WHICH ARE DISPLAYED IN THE MICRO 
1823 DIAGNOSTIC ERROR CODE (XSTAT3 BITS 15 - 08) AND ALSO IN THE LIGHTS ON THE 
1824 TSO4 CONTROL PANEL, DUE TO FAILURES ON THE CAPSTAN BOARD, I/0 BOARDS, 
1825 WRITE BOARD, READ BOARD, OR FORMATTER BOARD. THE MICRO WILL BE IN A 
1826 TIGHT LOOP IN THE DISPM PROGRAM, WAITING FOR OPERATOR OR CPU 
1827 INTERVENTION WHILE THE ERROR [S BEING DISPLAYED IN THE CONSOLE 
1828 LIGHTS. IT IS APPARENT THAT AN ERROR IS BEING DISPLAYED IF THE “UOK” 
1829 LIGHT IS NOT LIGHTED, THE PROCESSOR IS NOT STOPPED, AND AN OCTAL 
1830 NUMBER (100-377) IS BEING DISPLAYED IN THE LIGHTS. TO SCOPE LOOP 
1831 THESE TESTS, ENTER MAINTENANCE MODE (ON-LINE SWITCH TO “OFF” 
1832 POSITION, MAINTENANCE SWITCH UP, PRESS RESET). ENTER THE OFF-LINE 
1833 TEST NUMBER (SEE SCOPE LOOP COLUMN BELOW) IN THE OPERATOR CONSOLE 
1834 LIGHTS CENTER ONFS WITH LEFT-MOST SWITCH, ENTER ZEROES WITH 
1835 RIGHT-MOST SWITCH), AND PRESS ON-LINE BUTTON. TEST WILL LOOP UNTIL 
1836 ON-LINE SWITCH IS RETURNED TO OFF-LINE POSITION, ERRORS WILL BE 
1837 DISPLAYED CONTINUOUSLY. 
1839 ERROR ” PROGRAM ERROR DESCRIPTION ; LIKELY SCOPE 
1840 (DISPLAY) MODULE LOOP 
1842 337 OPERATIONAL CAPSTAN RUNAWAY ERROR (H3.RNY). CAPSTAN DIDN'T 
1843 : CODE STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 
1845 * 
1846 109 1OTSM BASIC I/O MICRO FAILURE (PARITY M8967 14 
1847 ” ERROR, IOATN, HANOSHAKING, AND 
1848 DATA WINDOW TEST BETWEEN THE I/0 
1909 AND MAIN MICROS. 
1851 NOTE: CAN ALSO BE CAUSED BY THE 
1852 SERIAL BUS .SHIN (SHIFT IN) 
1853 STUCK ASSERTED. 
1 
1855 101 LOTSM ERROR IN I/O CONTROL REGISTER TEST MB89n6 15 
1856 / M827 
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102 
103 


104 


105 
106 
107 
110 


111 


115 


116 


120 


121 
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G4 


GPRM COUNT OPTION 


IOTSM 
I015M 


IOTSM 


IOTSM 
IOTSM 
IOTSM 
IOTSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


PETSM 


PETSM 


ewes 


FAILURE OF FRAME COUNTER TEST 


FAILURE OF I/O SILO NON-PARITY ERROR 
DATA TEST OR THE WRITE FLAG. 


FAILURE OF I/O SILO PARITY ERROR 
TEST OR DATA LATE TEST. 


FAILURE OF SHIFT LOOP WITH ZEROES. 
FAILURE OF SHIFT LOOP WITH ONES. 
FAILURE OF SHIFT LENGTH MUX. 


FAILURE TO RECEIVE CORRECT OP-CODE 
FROM TS11 WHEN WE SENT DATA OVER 
THE SERIAL BUS. 


FAILURE OF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATTN, TOO. 


LIGHT REGISTER CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 


FWO OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND TACH PULSES. 


FAILURE OF SIMULATED CAPSTAN 
SPEED TEST. THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 


FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. SPEED COUNTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 


FAILURE OF SIMULATED CAPSTAN DECEL 
TEST. COUNTER NOT ZERO FOR FORWARD 


OR 377 FOR REVERSE WHILE DECELERATING, 


OR MVG BIT NOT 1. 


FAILURE OF MOVING FLOP TO GO TO ZERO 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 


FAILURE OF WRITE BOARD TO TURN ON 
AND EMPTY THE SILO, OR DATA LATE 
BIT DOESN'T WORK, 


FAILURE OF WRITE BOARD TO EMPTY 
SILO AT CORRECT SPEED. 


M8966 «15 
M8966 «16 
M8963 
M8966 17 
M8965 20 
M8965 
M895 22 
M8965 47 
TS11 

MOTHER BD 
SBUS CABLE 
Gis9 2 
CBUS CABLE 
M8963 
Gi593,4 
Gis9 3,4 
Gi59 3,4 
Gis9 «3,4 
Gis9. 3,4 
Gis9 3,4 
M8929 (23 
M8966 
M8929 23 


SEQ 0045 
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124 


125 


126 


127 
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PETSM 


PETSM 


PETSM 


PETSM 


FORMATTER FLAG DOESN’ T WORK ON THE 
M8922. 


FORMATTER SILO FILLING AND DATA 
ERROR 


PEAK SHIFT TEST ERROR 


FORMATTER TABLE LOOKUP ROM CHECKSUM 
TEST ERROR 


M8922 


M8922 
M8923 
M8924 


M8922 
M8923 
M8924 


M8922 
M8923 
M8924 


24 


24 


SEQ 0046 
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1933 002000 
1934 002000 


MACY11 30( 1046) 
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14 


wobec 08:51 PAGE 49 
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. TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 


-ENABL ABS,AMA 


. 2000 
BGNMOD 


zee 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
a? 


POINTER BGNRPT , BGNSW, BGNSF T ,BGNAU, BGNDU , BGNSE TUP 


HEADER CZTSH,D,0,5000,1,@INTPRI 


LSNAME: : sDIAGNOSTIC NAME 

-ASCII /C/ 

-ASCII /2/ 

-ASCII /T/ 

-ASCII /S/ 

-ASCII /H/ 

-BYTE 9) 

BYTE f°) 

-BYTE c9) 
LSREV:: sREVISION LEVEL 

- -ASCII /D/ 

LS$DEPO:: 30 

-ASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 

. WORD TSPTHV 
LS$TIML:: sLONGEST TEST TIME 

.WORD 5000 
LSHPCP:: sPOINTER TO H.W. QUES. 

.WORD L$HARD 
L$SPCP:: sPOINTER TO S.W. QUES. 

.WORD LSSOFT 
LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 

-WORD LSHW 
LS$SPTP:: sPTR. TO S.W. PTABLE 

. WORD L$Sw 
LSLADP:: ;DIAG. END ADDRESS 

.WORD LSLAST 
LSSTA:: ;sRESERVED FOR APT STATS 

.WORD © 
L$CO:: 

.WORD 0O 
LSDTyYP:: ;DIAGNOSTIC TYPE 

. WORD 1 
LSAPT:;: ;APT EXPANSION 

.WORD 0 
LSDOTP:: 3PTR. TO DISPATCH TABLE 

~WORD LSDISPAT 
LSPRIO:: sDIAGNOSTIC RUN PRIORITY 


«WORD @INTPRI 
LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
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000000 


021770 
021716 
000000 
002136 
104035 
000000 
017704 
021654 
021232 
017676 
000000 
000000 
000000 


J4 


MACY11 30(1046) 06-APR-84 08:51 PAGE 50 


PROGRAM HEADER 


LSEXPL:: 
LSMREV:: 


LSEF:: 


L$SPC:: 
L$DEVP:: 
LSREPP:: 
LSEXP4;;: 
LSEXPS:: 
LSAUT:: 
LSDUT:: 
L$LUN:: 
LSDESP: : 
L$LOAD:: 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDOLY:: 
LSHIME:: 


sEXPANSION WORD 
;SVC REV AND EDIT # 


sDIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
3PTR. TO REPORT CODE 


sPTR. TO ADD UNIT CODE 

3PTR, TO OROP UNIT CODE 

;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
s;GENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR. TO INIT CODE 

;PTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

;TEST NUMBER 

;DELAY COUNT 

;PTR. TO HIGH MEM 


SEQ 0048 


i?) 

1?) 
CSREVISI 
CSEDIT 

9) 

i?) 


L$AU 
LsbuU 
t+) 
L$DESC 
ESLOAD 
9) 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
oO 

QO 

0 
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002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 


002136 
002136 
002136 
002144 
002152 
002160 


002164 
002164 
002164 


000005 


022064 
023452 
024126 
024272 
024424 


040504 
046105 
044514 
051505 


051524 
002172 
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040524 
040511 
054524 


000124. 


030461 


iK4 
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051040 
044502 
052040 


000 


DISPATCH TABLE 
.SBTTL DISPATCH TABLE 
ze 
3; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
= 
DISPATCH 5 
L$DISPATCH:: 


-SBTTL DESCRIPTIVE TEXT 


ze 
32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND 


ee 
DESCRIPT. <DATA RELIABILITY TEST> 
L$DESC:: 
: -ASCIZ 
; -EVEN 
DEVTYP - <TS11> 
LSDVTYP:: 
-ASCIZ 
-EVEN 


SEQ 0049 


THE DEVI 


/DATA RE 


/TS11- 
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002172 
002172 
002174 
002174 


000002 


2079 002174 
» 002176 


002200 
002200 


172522 
000224 


«a 
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-SBTTL DEFAULT HARDWARE P - TABLE 


zee 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME 
a2 


BGNHW = OF PTBL 


LSHW:: 

OFPTBL: 

172522 :TSSR ADDRESS. 

224 ;VECTOR ADDRESS. 
ENDHW 

L10000; 


THIS TABLE 


P-TABLE. 


. WORD 


SEQ 0050 


L10000 -L 


PROGRAM HEADER AND TABLES 
06 -APR-84 08:49 


CZTSHD.P11 
20 
2085 
2086 
2087 
2088 
2089 
2090 
2091 002200 
2092 002200 000043 
2093 002202 
2094 002202 
2095 
2096 002202 001 
2097 0022035 000 
2098 002204 000 
2099 002205 000 
2100 002206 001 
2101 002207 000 
2102 002210 000 
2103 002211 000 
2104 002212 000 
2105 002213 000 
2106 002214 000 
2107 002215 000 
2108 002216 000040 
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-SBTTL SOFTWARE P-TABLE 


see 


at 


SEG 0051 


; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. — 


;*- 
BGNSW 


L$SW:: 
SFPTBL:: 


CLRFLG:: .BYTE 
RRANV:: .BYTE 
HAE:: .BYTE 
ERCVER:: .BYTE 
BADTSW:: .BYTE 


DINT:: .BYTE 
IREC:: .BYTE 
CHGFLG: : gore 
PIRE:: .BYTE 
BYT 


-BYTE 
CHAR:: CH.EAI 


SFPTBL 


coooocoorooor 


«WORD L10001-L 


;CLEAR COUNTERS FLAG. 

;RESET RANDOM VARIABLES EACH PASS FLAG. 

sHALT AFTER EACH COMMAND FLAG. 

sENABLE RECOVERABLE ‘ERROR PRINTS FLAG. 

= SWITCH TO REWRITE ON SAME SPOT € DETEC 
3 

;DISABLE INTERRUPTS FLAG. 

; INHIBIT ERROR RECOVERY FLAG. 

sCHANGE CMD SEQ TABLE FLAG. 

3; SPARE. 

AS al RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 


; SPARE. 
sCHARACTERISTICS CODE (DEFAULT = 40). 
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002220 


002310 
002310 


002310 


CMDD: : 


MACY11 30(1046) O6-APR-84 08:51 
‘SOFTWARE P-TABLE 


. WORD 
.W 


te “mj 


N4 


13. 


PAGE 54 


sCOMMAND 2 (DEFAULT = REWIND). 


sBYTE COUNT 
sNUMBER OF OPERATIONS 


sPATTERN 


sCOMMAND 3 (DEFAULT = WRITE) 


sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32000). 


;PATTERN CDEFAULT = RANDOM). 


sCOMMAND 4 (DEFAULT = READ REV). 
s;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32,000). 


sPATTERN (DEFAULT = RANDOM). 


sCOMMAND S (DEFAULT = READ FWD). 
sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32,000). 


sPATTERN (DEFAULT = RANDOM). 

sCOMMAND 6 (DEFAULT = REWIND). 
;BYTE COUN 
sNUMBER OF 


;PATTERN 


sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 7 


T 
OPERATIONS 


;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32000). 


;PATTERN (DEFAULT = RANDOM). 
sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 8 
;BYTE COUNT (DEFAULT = MAX BUFFER Lat By 


- 3NUMBER OF OPERATIONS (DEFAULT = 320 
sPATTERN (DEFAULT = RANDOM). 


SEQ 0052 


PROGRAM HEADER AND TABLES 
ZTSHD.P11 


002310 


00231C 
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. TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


SEQ 0053 


t° 
H THE GLOBAL EQUATES SECTION 2 gegen PROGRAM EQUATES THAT 


3 ARE USED IN MORE THAN ONE TEST 


EQUALS 


IT14*=* 40000 


T 
EVENT FLAG DEFINITIONS 


EF .START <= 32, 
EF .RESTART== 31. 
EF .CONT [NUE «= 30, 
EF .NEW==« 29. 
EF PWR» 28. 
3 


$ 

s PRIORITY LEVEL DEFINITIONS 
é 

PRIO?7+= 340 


EF 52:EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER -FAIL “POWER LP OCCURRED 


GLOBAL AREAS 
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000300 PRIO62= 300 
000240 PRIOS** 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2= . 100 
000040 PRIOL*= 40 
000000 PRIOO== 0 
3 
;OPERATOR FLAG BITS 
3 
EvL=- 4 
000010 LOT#= 10 
000020 ADR== 20 
000040 I0Us= 40 
000100 ISRe= 100 
000200 UAM== 200 
000400 BOE == 400 
001000 PNT<«= 1000 
002000 PRI== 2000 
004000 IxXE«= 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE == 100000 
3; REGISTER USAGE. 
3 
: RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
3 R1 - COMMAND SEQUENCE TABLE POINTER. 
3 R2 - GENERAL PURPOSE REGISTER. 
’ R3 - GENERAL PURPOSE REGISTER. 
; R4 - GENERAL PURPOSE REGISTER. 
3 RS - CURRENT LOGICAL DEVICE NUMBER x 2, 
3 R6 - STACK POINTER. 
: R7 - PROGRAM COUNTER. 
3; THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 
100000 TS.SC*#*100000 sSPECIAL CONDITION BIT. 
040000 TS. UPE = =40000 sUNIBUS PARITY ERROR 
020000 TS. SPE = =20000 sSERIAL BUS PARITY ERROR. 
010000 TS. RMR==10000 sREGISTER MODIFICATION REFUSED. 
004000 TS.NXM=# *4000 sNON-EXISTENT MEMORY, 
C02000 TS.NBA=*2000 sNCED BUFFER ADNRESS. 
001000 TS.A17*=1000 3B8US ADDRESS BIT 17. 
000400 TS.A16=+400 38US ADDRESS BIT 16. 
000200 TS.S5R==200 sUNIT READY BIT. 
000100 TS.0OFL*=100 sOFF LINE. 
177717 TSC.FCC#*177717 sFATAL CLASS CODE MASK. 
177761 TSC. 1Cl*2177761 s TERMINATION CLASS CODE MASK, 


SEQ 0054 


D5 


Oo APR ba Oo tgs”” OC APR BA 88rd Tee Per ron 


SEQ 0055 


3 THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 


100000 ACK .C==100000 sACKNOWLEOGE BIT 

040000 CvC .C**40000 sCLEAR VOLUME CHECK. 

020000 OPP .C==20000 sOPPOSITE BIT 

010000 SWB .C**10000 sSWAP BYTE BIT 

004000 MOD .C3*=4000 sMODE BIT 3 

004000 BRF .C==4000 sBYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 
+BY TSO4 BUT USED INTERNALLY Br THIS PROGRAM ONL 

002000 MOD ..C2*=2000 sMODE BIT 2 

001000 MOD.C1=*1000 sMODE BIT 1 

000400 MOD .CO*=400 sMODE BIT O 

000200 IE .C*#=200 s INTERRUPT ENABLE 

000100 FMT .Ci*=100 sFORMAT BIT 1 

000100 VF Y.C#=100 sWRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
sNOT USED By TS04, 

000040 FMT.CO=*40 sFORMAT BIT O. 

000040 JMP .C==40 sJUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
iA CERTAIN LOCATION IN THE COMMAND SEQUENCE 
sTABLE. INTERNAL USE ONLY. 

000020 CMD.C4*=20 s;COMMAND BIT 4 

000020 OLyY.C=*20 sINSERT DELAY. INTERNAL USE ONLY. 

000010 CMO.C3**10 sCOMMAND BIT 3 

000004 CMD.C2=*4 sCOMMAND BIT 2 

000002 CMD.C1=*2 sCOMMAND BIT 1 

000001 CmMD.CO==1 sCOMMAND BIT O 

4 BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 

000200 CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL ED 

000040 CH.EAI==40 sENABLE ATTENTION INTERRUPTS. 

000020 CH.ERI*=20 sENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

000040 OF TSCH=*CH.EAI sDEFAULT CHARACTERISTICS CODE. 


3THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 


3IN THE MESSAGE BUFFER, 


sRESIDUAL FRAME COUNT. 
sEXT STATUS REG O 
sEXT STATUS REG 1 
sEXT STATUS REG 2 
sEXT STATUS REG 3 


3; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 


000004 MS .RFC=*4 
000006 MS.xXSO**6 
000010 MS.XS1**10 
000012 MS.XS2**l2 
000014 MS .XS3**14 
100000 x0. TMK ==100000 . 
040000 XO.RLS*+40000 
020000 xO.LET*=20000 
010000 é xO .RLL = =10000 
000100 %*O.ONL ==100 
000002 x0.BOT**2 
000001 xO,EOT==1 


3; TAPE MARK. 

sRECORD a SHORT. 
sLOGICAL 

sRECORD LENGiN LONG. 
:ON LINE BIT 

;B0OT BIT. 

3sEOT BIT. 


3; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER © 


100000 x2, 0PM==100000 


;OPERATION IN PROGRESS, TAPE MOVING 


ae” 
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2305 
aot ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
2307 
2308 000010 X3.0CK==10 sDENSITY CHECK. 
2309 157400 x3. RNY==157400 sCAPSTAN RUNAWAY UDIAG ERROR CODE. 
231 
2311 3; THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
e312 sPACKET ENTRIES. 
1 
2314 000000 CP.CMD==0 sCMOPKT+O==TSO04 COMMAND. 
2315 000002 CP.ADL==2 ;CMOPKT+2==BUFFER ADDRESS LOW. 
2316 000004 CP. ADH==4 s;CMDPKT+4**BUFFER ADDRESS HIGH. 
eet? 000006 CP.CNT==6 ;CKOPKT+6==BYTE/FILE/RECORD COUNT 
1 
2319 ; MISCELLANEOUS DEFINITIONS. 
2321 000340 INTPRI==PRIO7 sPRIORITY TO BE USED IN INTERRUPT STATE. 
2322 002452 TSBA=*TSOB s;DATA BUFFER ADDRESS REGISTER. 
2323 000010 SCHCNI ==10 sARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
2324 ;BUFFER LENGTH. (EVEN 0) 
2325 000016 MSGCNT = #16 sMESSAGE BUFFER LENGTH IN BYTES. (EVEN 9) 
2326 003334 . DIABLK==DATAWT sWRITE BUFFER ALSO USED FOR DIAG CMD. 
2327 000020 DIACNT==20 sDIAGNOSTIC COMMAND BUFFER EXTENT. 
2328 004000 DATCNT ==2048, sMAXIMUM RECORD LENGTH IN BYTES, 
2329 s;THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSUR 
2330 ‘ sPROPER READ/WRITE BUFFER ALLOCATION BY THE SUPE 
2331 000550 CNTLEN==CNTEND -CNTBGN s;LENGTH OF STATISTICAL COUNTER AREA. 
2332 177740 RNOPSC==177740 sRANDOM @ OF OPERATIONS MASK. 
2333 000007 RANP==7 ;CODE TO SELECT RANDCM PATTERN. 
2334 000020 RRECL*==16. s;READ RECOVERY ATTEMPT LIMIT. 
2335 000020 WRECL=*16. sWRITE RECOVERY ATTEMPT LIMIT. 
2336 153624 RANBC = =153624 s;CONSTANT USED TO RESET RANDOM @ GENERATOR BASE. 
2337 032561 RANSC==32561 s:CONSTANT USED TO RESET RANDOM @ SAVE LOCATION. 
2338 177774 NINUSE#=17° 774 s;NOT IN USE CODE FOR DEVICE STATE TABLE. 
2339 177740 NCMO.C#==ACK.C!CVC.C!OPP.C!SWB.C!MO0D.C3!MOD.C2!MOD.C1!MOD.CO!IE.C!FMT.CLEFMT.CO 
Soar sNOT “COMMAND” BITS. 
e342 THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSO4 COMMAND. 
2344 100013 ORI== ACK.C!CMD.C3!CMD.C1!CMD.CO 
2345 ;ORIVE INIT. 
2346 
2347 104001 RDF==  aCk.C!BRF.C!CMD.CO 
2348 ;READ FORWARD 
2349 
2350 104401 RDR== ACK,.CIBRF.C!MOD.CO!CMD.CO 
oes ;READ REVERSE 
2353 104005 WRT== ACK.C!BRF.C!CMD.CO!CMD.C2 
dey . ;WRITE COMMAND 
2356 104105 WIV== ACK. CIBRE.C!vFY.C#CMD.CO!CMD.C2 
2357 WRITE VERIFY 
2358 
235 104010 SRF== ACK.CIBRFE.C!ICMD.C3 


2360 sSPACE RECORD FORWARD 


GLOBAL AREAS 
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MACY LL 8001046) 
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104410 | 
105401 
125401 
105001 
125001 
105005 
102010 
100012 


100011 
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SRR== ACK.C!IBRF.C!MOD.CO!CMD.C3 
sSPACE RECORD REVERSE 
RNR== ACK.C!IBRF.C!MOD.C1!M00.CO!CMD.CO 
sREAD REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVE 
RNF== ACK.C!IBRF .C!OPP.C!M00.C1!M0D.CO!CMD.CO 
sREAD REV RETRY2 - REREAD NEXT FORWARD, IE.READ FORWARD, SPACE R 
RPF=- ACK.C!IBRF.C!MOD.C1!CMO.CO 
sREAD FWO RETRY1 - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, R 
RPR== ACK.CIBRF.C!OPP.C!MOD.C1!CMD.CO 
sREAD FWO RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SP 
WRR== ACK.C!MOD.C1LIBRF.C!CMD.C2!CM0.CO 
sWRITE RETRY 
RWD== ACK.C!MOD.C2!CMD.C3 
sREWIND COMMAND 
MBR== ACK.C!CMO.C3!CMD.C1 
sMESSAGE BUFFER RELEASE 
WTM== ACK.CICMD.C3!CMD.CO 


sWRITE TAPE MARK, 
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101011 
105010 
105410 
100017 
100411 
100412 
101012 


140004 
100006 
000040 
000020 
177777" 


WIR== 
SFF == 
SFR== 
GES=- 
ERS== 
UNL == 
CLN== 


SCH== 
DIA== 
JMP == 
OLY== 
END== 


ACK .C!MOD. 


ACK.C!BRF. 


ACK.C!BRF. 


ACK.C!CMD. 


ACK .C!MOD. 


ACK.C!MOD. 


ACK.C!MOD. 


ACK .C!CvCc. 
ACK.C!CMD. 
JMP .C 
OLy.Cc 
177777 


GS 


C1!CMD.C3!CMD. 


co 
sWRITE TAPE MARK RETRY. 


C!mM00.C1!CMD.C3 


sSPACE FILE FORWARD 


C!MOD0.CO!MOD.C1!CMD.C3 


CO!CMD.C1!CMD. 


CO!CMD.C3!CMD. 


Co!CmMD.C3!CMD. 


C1!CMD.C3!:CMO. 


C!:cCMD.Ce2 
C2:Cm0.C1 


sSPACE FILE REVERSE 


C2!:cmMd.C3 
;GET EXTENDED STATUS 


co 
sERASE 3 INCHES OF TAPE 


C1 
sUNLOAD COMMAND 


C1 
sERASE TAPE. 


;SET DEVICE CHARACTERISTICS. 


sOIAGNOSTICS. 

3JUMP TO “N’ TH COMMAND 
;DELAY “N” MS. 

sEND OF COMMAND SEQUENCES 


SEQ 0058 
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002324 


002330 
002332 


002334 
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ee 

; THE GLOBAL DATA gE CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST 

gs 


3 COMMAND PACKET. 

. . .°3E177774 sMUST BE ON MOD 4 BOUNDRY. 

CMDPKT:: O 31ST WORD IS TSO4 COMMAND. 
re) 32ND WORD IS THE BUFFER LOW ADDRESS. 
0 33RD WORD IS THE BUFFER HIGH ADDRESS. 
0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 

F} GET STATUS COMMAND PACKET. 

" = . ©3E177774 sMUST BE ON MOD 4 BOUNDRY. 

GSCPK:: .WORD GES 

: MESSAGE BUFFER RELEASE COMMAND PACKET. 

: = . 36177774 sMUST BE ON MOD 4 BOUNDRY. 

BRCPK:: .WORD MBR 

: REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 

i ® . ¢3E177774 sMUST BE ON A MODULE 4 BOUNDARY. 

RWCPK:: .WORD RwWOD 
. WORD 1 

: WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 

MSGPKT:: .BLKW 7 s1ST WORD:: MESSAGE TYPE. 


:2ND WORD:: DATA FIELD LENGTH, 

; 35RD WORD: : RESIDUAL FRAME COUNT. 
34TH WORD:: XSTATO 

35TH WORD: : XSTATL 

36TH WORD:: XSTAT2 

37TH WORD:: XSTATS 


SEQ 0059 


AREAS 


002352 
002370 
002406 
002424 
cd 


i 
002442 
002444 


002446 
002450 


002452 


002530 
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GLOBAL DATA SECTION 


3 
MSGPKO: : 
MSGPK1: : 
MSGPKe: : 
MSGPKS3: : 
3 


SCHBK; : 


: 
TSOB:: 
TSSR:: 
TSVCT:: 
Hy 


MSGPKA: : 


3 
TS4INT:: 


a 
TS4CL:: 


MESSAGE PACKETS, 


-BLKW 7 
-BLKW 7 
-BLKW 7 


SEQ 0060 


sMESSAGE PACKET FOR DEVICE #0 
sMESSAGE PACKET FOR DEVICE #1 
sMESSAGE PACKET FOR DEVICE #2 
sMESSAGE PACKET FOR DEVICE 43 


SET CHARACTERISTIC BLOCK. 


MSGPKO 
0 


MSGCNT 
CH.EAT 


TSO4 REGISTER ADDRESSES. 


-BLKW 4 
-BLKW 4 
-BLKW 4 


31ST WORD:: MSGPKT ADDR _— UP By EXCUTE ROUT 
32ND WORD:: MSGPKT ADDR H 

33RD WORD:: MSG BUFFER LENGTH (BYTES) 

34TH WORD:: CHARACTERISTICS WORD(SET BY SETUP RO 


;TSO4 DATA BUFFER ADDRESSES. 
31TS04 STATUS REGISTER ADDRESSES. 
31TSO04 VECTOR ADDRESSES. 


ADDRESSES OF MESSAGE PACKETS. 


MSGPKO sDEVICE O. 

MSGPK1 sDEVICE 1 

MSGPK2 ;DEVICE 2 

MSGPK3 sDEVICE 3 

ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
TS4INO - sDEVICE O. 

TS4IN1 . ;DEVICE 1. 

TS4IN2 - ;DEVICE 2. 

TS4IN3 | ;DEVICE 3. 

TSO4 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 

1?) ;sDEVICE O 

(9) ;DEVICE 1 

0 sOEVICE 2 

(¢) sDEVICE 3 


UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 
WHEN DEVICE IS NOT IN USE, IT,S LOCATION Wiil = -3. 
R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER x 2. 


AREAS 
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177774 
177774 
177774 
177774 
177777 


002774 
003046 
003120 
003172 


DEVTBL:: 


BTADDR: : 


. WORD 


BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
"WRTY” TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 


J5 


NINUSE 
NINUSE 
NINUSE 
NINUSE 
END 


SEQ 0061 


AREAS 


Pil 
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CNTEGN= . 


CNTEND=. 
RECCNT:: 


DATAWT:: 


TSSREG:: . 


KS 


COUNTER AREA, 
.BLKW 20 
“BLKW 20 
.BLKW 20 
._BLKW 4 
BLkwW 4 
BLKW 4 
BLKW 4 
BLKW 4 
BLKWw 4 
BLKW 21 
BLKW 21 
BLKW 21 
BLKW 21. 
.BLKW 4 
.BLKW 4 
.BLKW 4 
.BLKW 4 
BLKw 4 
BLKW 4 
.BLKW 4 


SEQ 0062 


sBYTES WRITTEN. 

sBYTES READ REV. . 
sBYTES READ Fwd. 

sRECOVERABLE WRITE ERRORS. 
sUNRECOVERABLE WRITE ERRORS. 
sRECOVERABLE READ REV ERRORS. 
sUNRECOVERABLE READ REV ERRORS. 
sRECOVERABLE READ FWDERRORS. 
sUNRECOVERABLE READ FWD ERRORS. 
sUNIT O BAT TAPE SPOTS LOG 

s;UNIT 1 BAT TAPE SPOTS LOG 

sUNIT 2 BAT TAPE SPOTS LOG 

sUNIT 3 BAT TAPE SPOTS LOG 

sWRITE RETRY COUNTER 

sPASS COUNT. 

3; SPECIAL CONDITION COUNT. 

;COUNT OF TSO4 DATA COMPARE ERRORS. 


sCOUNT OF FATAL ERRORS. 

sEND OF STATICTICAL COUNTERS. 

sNUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 
;AND WHEN RESTARTING OR CONTINUING TEST 2. 


THE FOLLOWING ARE THE DEFINITIONS OF VARIABLES 


USED BY THE PROGRAM. 


;WRITE BUFFER ADDRESS. 

sREAD BUFFER ADDRESS. 

sSTORAGE FOR VALUE OF N. 

;TEMP STORAGE FOR VALUE OF N. 

sSTORAGE FOR BPCR VALUE. 

sCONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
;SAVE LOCATION FOR CMO WORD DURING ERROR RECOVER 
sCONTAINS PREVOUS COMMAND WORD. 

sCURRENT COMMAND LOGGING CODE 

;RANDOM WRITE LENGTH MASK, TO BE SET UP By TESTS 
sRANDOM ® GENERATOR BASE. 

sRANDOM @ SAVE LOCATION. 


COUNT. 
3 JMP COMMAND LOCATION COUNT. 
;PATTERN SELECT CODE. 
sCURRENT TERMINATION CLASS CODE. 
sLOCATION FOR SAVING CURRENT DEVICE POINTER. 
;CURRENT STATUS REGISTER. 
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003450 
003451 


003456 000000 
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LS 


: SEQ 0063 
ia 

: ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 

; AFTER EACH COMMAND IS COMPLETED. 

BGNFLG=. 

RETRYC:: .WORD 0 ;@ OF RECOVERY ATTEMPTS EXECUTED. 

RPTCNT:: .BYTE 0 © ;WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 

WRTYFG:: .BYTE 0 ;WRITE RETRY ON SAME SPOT IN PROGRESS FLAG 

WRTYER:: .BYTE 0 ;WRITE RETRY ON SAME SPOT ERROR FLAG 

RECLOG:: .BYTE 0 ;RECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 

ERLOG:: .BYTE 0 :DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS 

RWERR:: .BYTE 0 ;READ/WRITE ERROR HAS OCCURED. 

UNREC:: .BYTE 0 ;UNRECOVERABLE ERROR HAS OCCURED. 

ERRREC:: .BYTE 0 ;ERROR RECOVERY MODE. 

EVEN 

ENDERF =. 

: ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 

INTFLG:: .BLKW 4 ; INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 

EOTFLG:: .BLKW 4 :EOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 

BTPT::  .WORD O ;BAD TAPE SPOT POINTER TO BTO-BT3 VIA BTADOR 

EXPBOT:: .BYTE 0 ;B0T IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 

RANOOM:: .BYTE 0 -;RANDOM EVERYTHING FLAG. 

VFYFLG:: .BYTE 0 ;SET DURING WRITE/VERIFY COMMAND. 

RPTFLG:: .BYTE 0 ;PERFORMANCE REPORT HAS BEEN REQUESTED. 

SWBFLG:: .BYTE O ;ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZE 

IRE::  .BYTE O ; INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 

DROPED:: .BYTE 0 ;CURRENT UNIT HAS BEEN DROPPED 

T1SWB:: .BYTE O ;TEST1 SWAP BYTES FLAG 

ALLEOT:: .BYTE 0 3ALL UNITS @ EOT FLAG 

ERSFLG:: .BYTE 0 ;ERASE FLAG: DO ERASE AFTER A SPACE REV TO DELE 
;BADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
3A 3 TO 12 INCH GAP MAY RESULT. 

EVEN 

ENOFLG-. 

; ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 

STAFLG:: .BYTE 0 ;START FLAG - SET BY INIT CODE IF STARTING. 

PWRFLG:: .BYTE 0 ;POWER FAILURE FLAG - SET ONLY DURING INIT. 

TRAPO4:: .BYTE 0 ;TRAPED AT 4 FLAG 

MISCFG:: .BYTE O ;MISCELLANEOUS FLAG 

: OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 

: SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 

OPFLAG:: .WORD 0 ;READ ONLY OPERATOR FLAG WORD 


-EVEN 


M5 
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2623 ; ;THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. The TABLE 
2624 sHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
oo ;CAN BE UPDATED By A TEST OR BY OPERATOR INPUT. 

2627 003460 140004 CMDSEQ:: .WORD SCH ;SET CHARACTERISTICS. 
2628 003462 000040 «WORD CH.EAI 

2629 003464 000001 «WORD 1 

2630 003466 000000 -WORD O 

2631 003470 102010 CMDSE2:: .WORD RWD sREWIND. 

2632 003472 000001 «WORD 1 sBYTE COUNT. 

2633 03474 000001 «WORD 1 ;ONCE. 

2634 003476 000007 -WORD  RANP ;PATTERN. 

2635 003500 104005 -WORD WRT sWRITE. 

2636 003502 004000 «WORD DATCNT sMAX BUFFER LENGTH. 
2637 003504 076400 -WORD 32000. 332,000 RECORDS. 

2638 003506 000007 -WORD RANP sRANDOM PATTERN. 

2639 003510 104401 -WORD ROR sREAD REV. 

2640 003512 004000 44 «WORD DATCNT ;MAX BUFFER LENGTH. 
2641 003514 076400 -WORD 32000. 332,000 RECORDS 

2642 003516 000007 De -WORD  RANP ;RANDOM PATTERN. 

2643 003520 104001 . -WORD RDF sREAD FWD. 

2644 003522 004000 «WORD DATCNT 3MAX BUFFER LENGTH. 
2645 003524 076400 -WORD 32000. 332,000 RECORDS. 

2646 003526 000007 -WORD RANP ;RANDOM PATTERN. 

2647 003530 102010 -WORD RWD sREWIND. 

2648 003532 000001 «WORD 1 ;BYTE COUNT. 

2649 003534 000001 -WORD 1 ;ONCE. 

2650 003536 000007 -WORD RANP ;PATTERN. 

2651 003540 000004 -BLKW 4 sEXTENSTION TO HOLD 1 MORE CMD. 
2652 003550 177777 SEQEND:: .WORD END ;SOFT END OF SEQUENCE TABLE. 
2653 003552 177777 «WORD END 

2654 003554 177777 WORD END 

2655 003556 177777 -WORD END 


2656 003560 177777 «WORD END sHARD END OF SEQUENCE TABLE. 
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;THE FOLLOWING IS THE TSO4 COMMAND TABLE 


CMOTBL:: 


. WORD 
WORD 


N 


ORI 
ROF 


5 


SEQ 0065 


;ORIVE INIT. 

;READ FORWARD. 

sREAD REVERSE. 

;WRITE 

;WRITE/VERIFY. (WRITE ALL RECORDS, RDR AND 
;CHECK DATA ON ALL RECORDS, RDF AND 

;CHECK DATA ON ALL RECORDS. ) 

;SPACE “N” RECORDS FORWARD. 

;SPACE “N” RECORDS REVERSE. 

;READ NEXT REVERSE. I.€., SPACE FWD, READ REVERS 
;READ NEXT FORWARD, I.€., READ FORWARD, SPACE RE 
;READ PREVIOUS FORWARD. I.€., SPACE REVERSE, REA 
sREAD PREVIOUS REVERSE. I.£., READ REVERSE, SPAC 
;WRITE RETRY. 

;REWIND. 

sMESSAGE BUFFER RELEASE 

;WRITE TAPE MARK 

;WRITE TAPE MARK RETRY. 

;SPACE “N” FILES FORWARD. 

;SPACE “N” FILES REVERSE. 

;GET EXTENDED STATUS. 

sERASE 3 INCHES OF TAPE. 

;REWIND AND UNLOAD. 

;CLEAR TAPE. 

;SET CHARACTERISTICS. 

s;DIAGNOSTIC COMMAND. 

;JUMP TO THE NTH COMMAND IN THE SEQUENCE. 

:DELAY “N” MS, 

END OF COMMAND TABLE 


AREAS 
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120 


054514 
104 
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68 
GLOBAL DATA SECTION 


-ASCIT 
ASCII 


Bb 


/ORI/ 
/ROF / 
/ROR/ 
/WRT/ 
/WTV/ 


/SRF/ 
7SRR/ 
/RNR/ 
/RNF / 
/RPF/ 
7RPR/ 
7WRR/ 
/RWO/ 
/MBR/ 
/WIM/ 
/WIRZ 
/SFF/ 
/SFR/ 
/GES/ 
ZERS/ 
7UNL / 
/CLNZ 
/SCH/ 


/OIA/ 


4 IMP / 


JOLY 
/END/ 


SEQ 0066 


THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
CMDASC:: 


sORIVE INIT. 

sREAD FORWARD. 

sREAD REVERSE. 

sWRITE 

sWRITE/VERIFY. (CWRITE ALL RECORDS, ROR AND CHEC 
sON ALL RECORDS, ROF AND CHECK DATA ON ALL RECOR 
sSPACE “N” RECORDS FORWARD. 

sSPACE “N” RECORDS REVERSE. 

sREAD NEXT REVERSE. I.E., SPACE FWO READ REVERSE 
sREAD NEXT FORWARD, I.E., READ FORWARD, SPACE RE 
sREAD PREVIOUS FORWARD. IE.. SPACE REVERSE, READ 
sREAD PREVIOUS REVERSE. IE., READ REVERSE, SPACE 
sWRITE RETRY. 

sREWINO. 

sMESSAGE BUFFER RELEASE 

sWRITE TAPE MARK 

sWRITE TAPE MARK RETRY. 

sSPACE “N” FILES FORWARD. 

sSPACE “N” FILES REVERSE. 

sGET EXTENDED STATUS. 

sERASE 3 INCHES OF TAPE, 

2REWIND AND UNLOAD. 

;CLEAN TAPE 

3sSET CHARACTERISTICS. WHERE BRF=200, 40, 20, O. 
3SEE 1S11/TSO4 PROGRAMMING SPECIFICATION FOR DES 
sOIAGNOSTICS. SEE TS11/TSO4 PROGRAMMING SPECIFI 
sFOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAG 
sINTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED 
3 JUMP TO THE NTH COMMAND IN THE COMMAND 
;SEQUENCE TABLE, WHERE N IS DEFINED IN 

sTHE © OF OPERATIONS. 

;sDELAY "N” MS, WHERE N IS DEFINED IN 

sTHE @ OF OPERATIONS. 

sEND OF COMMAND SEQUENCE. 
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044516 
052105 


000067 


PA 
GLOBAL TEXT SE 1f0N 


Co 


-SBTTL GLOBAL TEXT SECTION 


MESSAGES, AND 
MORE THAN ONE 


"THE GLOBAL TEXT SECTION CONTAINS FORMAT 


STATEMENTS, 
+9 Se (NFORMATION THAT ARE USED IN 


é 
: FORMAT STATEMENTS USED IN PRINT CALLS 


-NLIST 
CODELM: : — 


E 
HALTM:: .ASCIZ 
CMDPKM:: .ASCIZ 

EVEN 


CRLF :: ASCIZ 
CRLF SP ASCIZ 
LIST 


BEX 
/@NSAUNIT SD1SA 1511 CODE LEVEL PsO3SNSN/ 


“Xxx CMD - TYPE <CR> TO CONTINUE/ 
/CMD PACKET ADR NOT ON MODULO 4 BOUNDARY; 


/DATA COMPARE ERROR/ 

/NO TS11 RESPONSE / 

/UNDEFINED SPEC COND/ 

7RFC NON ZERO/ 

7TS11 NOT READY/ 

/RETRY LIMIT EXCEEDED/ 

UNIT OFF LINE/ 

/FUNCTION REJECT/ 

/FATAL SUBSYSTEM FRROR/ 

/NO INTERRUPT/ 

/TAPE STATUS ALERT/ 

“TOO MANY INTERRUPTS/ 

/CAPSTAN RUNAWAY -GET STATUS RESULTS: ” 
/RECOVERABLE ERROR/ 

/JUNRECOVERABLE ERROR/ 

/@NSADROPPED UNIT SD16N/ 

/@NBSAALL UNITS DROPPEDSNSN/ 

"SNSABY TE : SD48SS28AWAS : 688852845 /B : SBSEN” 
“SD48A BYTES IN ERROR OUT OF sD45N" 
/@ANO DATA READSN/ 
/@ARECORD TOG LONG: >S048A BYTESSN’ 
/@ARECOVERED ON RETRY OsD28N 
/@AUNIT @D18A OFF LINESN/ 

/@AGET STATUS CMD RESULTS:@N/ 

/@N/ 

SONGS 7/ 

BE x 


RFLOAD!/ 


SEQ 0067 


RE AS 
1 


vs 
ss 


MACYLL 380.1040) 
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016546 0033524 
016546 
016546 
012746 0057 

012746 000004 
010600 
104414 
062706 


012746 005776 
012746 


010237 
010337 


010437 
004737 


013702 006312 
010337 
013703 
013704 
013746 006312 
012746 
012746 
010600 
104414 
062706 


000167 
000000 


104423 


gee 


; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
+ THAT ARE USED IN MORE THAN ONE TEST. 
3; THAT ARE USED 


OTAERM: : 


10002; 


BGNM 
PRINTB 


PRINTB 


LET 
LET 
LET 


JSR 
LET 


LET 
Let 
LET 


Do 


Or APR BA oak PAROR REPORT SECTION 


.SBTTL GLOBAL ERROR REPORT SECTION 


SG OTAERM 


@STAER7 


RECRED :* R2 
TIMEL :* RE 
TIMES := R4 


PC,.RECTAP 
R2 :* RECRED 


RECRED := R35 
R3 := TIME1L 
R4 :* TIMEC 


PRINTB OSTAER6,RECRED 


ExIt 


MSG 


EVEN 
ENOMSG 


SEG 0068 


IT ALSO INCLUDES THE ASCII MESSAGES 


BY THE PRINTB AND PRINTX CALLS.. 


@STAERL DEVTBLCRS),PASCNI(RS),RECCNT(RS) 


sSAVE R2 
;SAVE R3 
sSAVE RG 


sRETRIEVE RECORD READ 
sRESTORE R2 


sSAVE RECORD READ 
sRESTORE RS 
sRESTORE R4& 
sPRINT RECORD READ 


RECCNT(R 
PASCNTC(R 
DEVTBLC(R 
@STAERL, 
04, -(SP) 
SP RO 
CSPNTB 
912,SP 


@STAER7, 
#1, -(SP) 
SP RO 
CSPNTB 
04,SP 
R2,RECRE 
R3,TIMEL 


R4,TIMEQ 


RECRED,.R 
R3,RECRE 
TIME1L,R3 
TIME2,R4& 
@STAERS, 
@2,-¢SP) 
SP ,RO 
CSPNTe 
eo oO se 


I$ JMP 
LiICOOL2 - < 


CSMSG 
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012746 


013702 
042702 


005302 
005702 
001016 
004737 
010337 


013746 


012746 
012746 
010600 
104415 
062706 


013746 


002310 
177740 


STAERM: : 
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BGNMSG 
PRINTB 


PRINTB 


LET Re 


LET R2 


E6 


STAERM 


OSTAER1,DEVTBL(RS),PASCNT(RS),RECCNICRS) 


@STAER7 


:* CMDOPKT CLR.BY 0177740 


:2 Ro - 


1 


IF R2 EQ 90 THEN 


JSR PC,RECTAP 
LET RECRED := 


PRINTB @STAER6,RECRED 


ENDIF 
PRaini. 


@STAER2 


R3 


;IF CMD IS A READ 
; THEN RETRIEVE 

3; AND 

; TYPE RECORD READ 


50000$: 


PRINIX #@STAER4S,CMDPKT+2>,CMDPKT+4,CMDPKT-6 


SEQ 0069 


RECCNT(R 
PASCNT(R 
DEVTBLC(R 
@STAER1, 
@4,-(SP) 
SP ,RO 
CsPNTB 
#12,SP 


@STAER7, 
@1, -CSP) 
SP RO 
CSPNTB 
o4,S5P 


CMOPKT ,R 
#177740, 


R2 


R2 
50000 $ 


R3,RECRE 


RECRED. > 
@STAERG, 
#2. -(SP) 


@STAER2, 
@1,-CSP) 
SP RO 
CSPNTX 
@4,SP 


crcc.-¢s 
TSSREG, - 
MSGPKT «M 
aTsoBcRs 
CMOPKT, - 
@STAERS, 
#6, -CSP) 
SP RO 

CSPNTS 

#l6,SP 


2879 
2880 
2881 
2882 
2883 
2884 


ARE AS 
Pil 


005604 
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013746 


013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 


000167 
000410 


104423 


002316 
002314 
002312 
006177 
000004 


000012 


002350 
002346 
002344 
002342 
006217 
000005 


000014 


054130 
051120 
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020130 
053105 


052123 
031123 
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GLOBAL ERROR REPORT SECTION 


PRINTX 

EXIT 
Ist 
STAER1: .ASCIZ 
VEN 
STAER7: .ASCIZ 
STAER6: .ASCIZ 
STAER2: .ASCIZ 
STAER3: .ASCIZ 
STAER4: .ASCII 
ASCII 
-ASCIZ 
STAERS: .ASCII 
-ASCIZ 

LIST 

EVEN 

RECRED: .WORD 
ENDOMSG 


L10003; 


‘ MOV 


AD! 
@STAERS ,MSGPKT +MS.xXSO,MSGPKT «MS .xXS1,MSGPKT+MS.xXS2,MSGPKT 


MSG 


SEQ 0070 


CMOPKT +6 
CMDPKT +4 
CMOPKT +2 
#STAER4, 
04, -(€SP) 
SP ,RO 
CSPNTX 
#12,SP 
MS .XS3 
MSGPKT +M 
MSGPKT +M 
MSGPKT +M 
MSGPKT +M 
#STAERS, 
#5, -(SP) 
SP RO 
CSPNTX 
#14,SP 


J$JMP 
L10003-2 


BEX 
/#AXXX CMD FAILED - UNIT SD1SS3SAPASS: 8058S 35SARECORD : S0SSN/ 


/@APREVIOUS CMD WAS XXX/ 

4%S118Ae RECORD READ: S058A «7 

/SNSACMOPK TSS2SATSBASS4SARF CSSSSATSSRSES3SATCCSEN/ 
1%06%S28068S528068S28068S28D 18N/ 

/#068N/ 

/8068N/ 

/B068N/ 

/BAXSTOSS4SAXST 18S48AXS T2SS4SAXST 3N/ 

pupae antennae a il 


te) sRECORD READ FROM TAPE 


TRAP 


CsMSG 
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005237 


000002 


005237 


000002 


005237 


000002 


005237 


000002 


003416 


003420 


003422 


003424 
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l. SUBROUTINES SECTION 


. SBTTL 


GLOBAL SUBROUTINES SECTION 


‘¢ 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
3; THAT ARE USED IN MORE THAN ONE TEST 


TS4INO:: 


L10004: 


TS4INL:: 


L10005: 


TS4IN2:: 


110006: 


TS4IN3:: 


L10007;: 


MODULES TO HANDLE TSO4 INTERRUPTS. 


BGNSRV TS4INO 
LET INTFLG :* INTFLG + 41 
ENDSRV 


BGNSRV TS4IN1 
LET INTFLGe2 := INTFLGee + O1 
ENDSRV 


BGNSRV TS4IN2 
LET INTFLGe4 := INTFLGe4 + 1 
ENDSRV 


BGNSRV TS4IN3 
LET INTFLG+6 := INTFLG+6 + 1 
ENDSRV 


sDEVICE O. 
;SET INTERRUPT OCCURRED — 


RTI 
sDEVICE 1. 
;SET INTERRUPT OCCURRED FLAG. 
INC 
RTI 
sDEVICE 2. 
;SET INTERRUPT OCCURRED FLAG. 
INC 
RTI 
sDEVICE 3. 
;SET INTERRUPT OCCURRED oe 


RTI 


SEQ 0071 


INTFILG 


INTFLGe2 


INTFLG-4 


INTFLG+6 
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032737 
001430 


013702 
063702 


032702 
001417 


005202 


111203 
142703 


000303 
005302 


105737 
001401 


005302 


111204 
142704 


050403 
000401 


011203 


000402 


017703 


000207 


000400 003346 


002340 
003336 


000001 


177400 


003444 


177400 


174674 


O06 -APR-84 08:51 74 
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SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


RECTAP:: IF @MOD.CO SETIN CMOWRD THEN 


PAGE 


PRINTS. 
INPUTS: 
OUTPUTS: 


REGISTERS: 


CALLS: 


LET 


LET R2 


R3 


ENDIF 


LET 


LET R3 


ELST 


LET 
ENDIF 
ELSE 


LET R3 := @DATARD 


R4 


R3 


Ho 


R3_= RECORD COUNT READ 
R2, R3, R4 


sREAD REV FETCH 


BIT 
BEQ 
LET R2 :* MSGPKT+MS.RFC + DATARD ;FIND LAST READ AD. 
MOV 
ADD 
IF #BITOO SETIN R2 THEN :000 AD., REASSEMBLE err 
BEQ 
LET R2 := R2 + @1 sREC COUNT STARTING INC 
LET R3 :B= (R2) CLR.bY 9177400 ;WITH UPPER BYTE FETCH 
MOVB 
BICB 
:= SWAP R3 : 
SwAB 
:= R2 - @1 sLOWER BYTE AD. 
DEC 
IFB SWBFLG NE #0 THEN ‘ 
TSTB 
BEG 
LET R2 := R2 - #1 sLQWER BYTE AD. ON SWAP 
DEC 
50003$: 
:B= (R2) CLR.BY #177400 ;FETCH LOWER BrTE 
MOVB 
BICB 
:2 R3 OR R4 sMERGE BYTES j 
BIS 
BR 
50002$: 
:= (R2) sEVEN AD. FETCH 
MOV 
50004: 
BR 
50001$: 3 
;READ FWD FETCH 
MOV 


ENDIF 


RTS 


PC 


500058: 


SEG 0072 


@mMoD.CcO, 
50001$ 


MSGPKT +M 
DATARD,R 


#BITOO,R 
50002 $ 


Re \ 


CR2),R3 
#177400, 


R3 
R2 


SWBFLG 
50003$ 


R2 


CR2),R4 
#177400, 


R4,R3 
50004 $ 


CR2),R3 


50005 $ 


@DATARD, 


16 
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F SUBROUTINE TO STORE A SET CHARACTERISTIC COMMAND AS 
2979 3 THE FIRST ENTRY IN THE SEQUENCE TABLE. 
2980 3 INPUTS: 
2981 3 OUTPUTS: 
2982 : REGISTERS: 
Sees 3 CALLS: 
2985 006444 SETCH:: LET R1 := #CMDSEQ s INIT COMMAND SEQUENCE TABLE POINTER. 
2986 006444 012701 003460 MOV #CMDSEQG, 
2987 006450 012721 140004 MOV @SCH,(R1)- sTHIS CODE SETS UP A SET CHARACTERISTIC 
2988 006454 012721 000040 MOV @DF TSCH,(R1)> sCOMMAND AS THE FIRST COMMAND IN THE 
2989 006460 012721 000001 MOV #1,(R1)>+ sSEQUENCE TABLE. 
2990 006464 005721 TST (R1)> 3;SKIP PATTERN LOCATION. 
2991 006466 000207 RTS PC 
2992 
2993 
2994 
2995 
2996 3 SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
2997 3 INPUTS: 
2998 Fy OUTPUTS: 
2999 3 REGISTERS: 
3000 3 CALLS: 
3001 
3002 006470 SETRW:: LET (R1)>+ := @RWD ;CMD = REWIND. 
3003 006470 012721 102010 MOV #RWD.CR1 
3004 006474 LET (R1)+ := 1 ;BRF. 
3005 006474 012721 000001 MOV #1,(R1)- 
3006 006500 LET CR1L)+ := 1 3% OF OPERATIONS. 
3007 006500 012721 000001 MOV #1,C(R1)- 
3008 006504 005721 TST CR1)> :SKIP PATTERN, 


3009 006506 000207 RTS PC sRE TURN 


GLOBAL. 
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012701 


021127 
001527 
004737 


023737 
002116 
004737 


105737 
001435 


023727 
001031 


105737 
001026 


063737 
063737 
013737 
043737 


023727 
002003 


012737 


013737 


004737 
004737 


012702 
004737 


003460 


177777 
007452 


0C3340 
007344 
003441 


003346 


003442 


003362 
003360 
003362 
003356 
003344 


000022 


003344 


007004 
016060 


000001 
015452 


003342 


104005 


003360 
003362 
003344 
003344 
000022 


003344 


002316 


J6 
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EXALL:: 


a pete = TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE UN ALL 
Vv . 


INPUTS: 
OUTPUTS: R2 = TERMINATION INDICATOR (O-END OF TABLE,1-E0T) 
REGISTERS: 
CALLS: CMDAC , SETUP ,EXSUB , CKHAE ,NEXTU,FIRSTU,VFYDAT. 
LET R1 := #CMDSEQ sINIT SEQUENCE TABLE POINTER. 
MOV #CMDSEQ, 
WHILE (R1) NE #END DO sWHILE THERE ARE CMOS IN THE SEQUENCE TA 
50006$: 
CMP (R11), EN 
BEG 50007$ 
JSR PC, SETUP 3;GO SETUP THE COMMAND BLOCK 
WHILE NCNT LT NCNT1 OO ;WHILE THERE ARE RECORDS REMAINING: 
50010$: 
CMP NCNT .NCN 
BGE 50011 
JSR PC,CMDAC :STORE CMD ASCII IN ERROR MESSAGE. 
IFB RANDOM NE #0 THEN ;IF IN RANDOM MODE: 
TSTB RANOGM 
BEQ 50012$ 
IF CMDWRD EQ @WRT THEN ;IF CMD IS A WRITE THEN: 
cmp CMOWRD , & 
BNE 50013$ 
IFB VFYFLG EQ #0 THEN :IF DATA IS NOT TO BE VERIFIED THEN: 
TSTB VFYFLG 
BNE 50014$ 
LET RANB := RANB + RANS-” ;GENERATE 
AOD RANS ,RAN 
LET RANS := RANS + RANB~ ;RANDOM 
ADD RANB ,RAN 
LET BRFCNT := RANS ;LENGTH 
MOV RANS .BRF 
LET BRFCNT := BRFCNT CLR.BY LENMSK ;MASK RANDOM LENGTH. 
BIC LENMSK .6 
IF BRFECNT LT #18. THEN ;CO NOT ALLOW BYTE COUNT OF LESS 
CMP BRFCNY,¢ 
BGE SOOLSS 
LET BRFCNT :+ #18. ;CHANGE COUNT OF O-17 TO 18. 
MOV #18. SRF 
ENDIF 
SOOLSS: 
LET CMDPKT+CP.CNT :- BRFCNT ;MOVE BREF TO CMD PACKET. 
MOV BRFCNT,C 
ENDIF 
50014$: 
ENDIF 
500138: 
ENDIF 
50012$: 
JSR PC,EXSUB : ISSUE CMD TO ALL,AWAIT INTS,CHECK STATL 
JSR PC, CKHAE ;CHECK HALT AFTER EACH CMD FLAG. 
LET Re := #1 3SET ALL UNITS AT BOT/EOT. 
MOV #1, Ro 


JSR PC,FIRSTU sF IND FIRST UNIT. 


IK6 
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3066 006662 WHILE DEVTBLCRS) NE #END DO ;WHILE THERE ARE MORE UNITS: 
3067 006662 50016$: 
3068 006662 026527 002532 177777 CMP DEVTBLCR 
3069 006670 001426 BEG 50017$ 
3070 006672 IF #M0D.CO SETIN CMOWRD THEN ;IF CMD IS REVERSE THEN: 

71 006672 032737 000400 003346 BIT #mMOD.CO, 
3072 006700 001406 BEQ 50020$ 
3073 006702 IF #xO.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT THEN: 

3074 006702 032765 000002 003426 BIT #x0.B0T, 
3075 006710 001001 BNE $0021$ 
3076 006712 LET Re := #0 ;CLEAR EOT/BOT FLAG. 

3077 006712 005002 CLR R2 

3078 006714 ENDIF 

3079 006714 500215: 

3080 006714 ELSE sELSE IF CMD IS NOT REVERSE: 

3081 006714 000411 . BR 50022$ 
3082 006716 50020$: 

3083 006716 IF #xO.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMOWRD THEN 
3084 006716 032765 000001 003426 BIT #x0.EOT, 
3085 006724 001404 BEQ 50023$ 
3086 006726 032737 000001 003346 BIT eCMD.CO, 
3087 006734 001001 BNE 50024$ 
3088 006736 500238: 

3089 ;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
3090 006736 LET R2 := #0 ;CLEAR EOT/BOT FLAG. 

3091 006736 005002 ¥ CLR R2 

3092 006740 ENDIF 

3093 006740 500248: 

3094 006740 ENDIF 

3095 006740 500228: 

3096 006740 004737 015520 JSR PC,NEXTU sF IND NEXT UNIT 

3097 006744 ENDDO H 

3098 006744 000746 BR SO0016$ 
3099 006746 SOO17$: 

3100 006746 IF R2 EQ #1 THEN 3IF ALL UNIT ARE AT EOT/BOT THEN: 

3101 006746 020227 000001 CMP R2.#1 
3102 006752 001001 BNE 50025$ 
3103 006754 000412 BR EXARTN sRETURN WITH R2 = #1. 

3104 006756 ENDIF 

3105 006756 $0025$: 

3106 006756 LET NCNT := NCNT «+ #1 sUPDATE RECORD COUNT. 

3107 006756 005237 003340 INC NCNT 
3108 006762 ; LET PCMDOWD := CMDWRD sSAVE PREVIOUS COMMAND WORD. 

3109 006762 013737 003346 003352 MOV CMOWRD ,P 
3110 006770 ENDDO 

3111 006770 000656 BR SO010$ 
3112 006772 SOO11$: 

3113 006772 004737 014402 JSR PC, VF YDAT sIF LAST CMD WAS A WRITE VERIFY, THEN GO 
3114 ;VERIFY THE LAST N RECORDS OF DATA, 

3115 006776 ENDDO 

3116 006776 000646 BR 50006 $ 
3117 007000 50007$: 

3118 007000 LET R2 := #0 3SET NORMAL RETURN INDICATOR, 

3119 007000 005002 CLR Ro 

3120 007002 000207 EXARTN: RTS PC RETURN, 
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004737 
026527 
001465 


032737 
001421 


032765 
001014 


032765 
001406 


105737 


001402 
004737 


000402 
004737 


000435 


023727 
001011 
032765 
001405 


016537 
005077 


032765 
001404 
032737 


015452 


002532 


000400 


000002 


000001 


003450 
010326 


010326 


003354 
000002 


002544 
174312 


000001 
000001 


L6 
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177777 


003346 


003426 


003426 


000002 
003426 


003436 


003426 
003346 


8 
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SEQ 0076 
3 SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
; AL’ INTERRUPTS, AND CHECK ALL STATUS. 
’ ThPuUTS: 
; OUTPUTS: 
3 REGISTERS: 
; CALLS: EXCUTE ,GOWAIT,NEXTU,FIRSTU. 
EXSUB:: JSR PC,FIRSTU ;SET UP FOR FIRST UNIT 
WHILE DEVTBL(RS) NE #END DO ‘WHILE THERE ARE MORE DEVICES: 
50026$: 
DEVTBLCR 
BEQ 50027$ 
IF #MOD.CO SETIN CMOWRD THEN ;IF CMD IS REVERSE THEN: 
BIT #M0D.CO, 
BEQ 50030$ 
IF #xO.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
BIT #x0.BOT, 
BNE 500315 
IF #xO.EOT SETIN EOTFLGC(RS) THEN ;BuUT IF AT EOT 
BIT #x0O.E0T, 
BEQ 50032$ 
IFB ALLEOT NE #0 THEN sAND ALL OTHERS AT EOT 
TSsTB ALLEOT 
BEQ 500335 
JSR PC,EXCUTE ; THEN EXECUTE FEV CMD 
ENDIF ;IF NOT ALL AT EOT, FREEZE UNITC 
50033$: 
ELSE ;IF NOT AT BOT AND 
BR 50034$ 
50032$: 
JSR PC, EXCUTE sNOT AT EOT, EXEC REV CM 
ENDIF 
50034$: 
ENDIF 
50031$: 
ELSE sELSE IF CMD IS NOT REVERSE: 
BR 50035$ 
5003C$: 
IF CMDLG EQ #2 AND #xXO.BOT SETIN EOTFLGCRS) THEN 
CMP CMOLG, #2 
BNE 50036$ 
BIT #x0.B0T, 
BEG 50036$ 
;CLEAR BAD SPOT COUNTS WHEN WRITING FROM 
LET BIPT ;:= BTADDR(RS) 
MOV BTADDRCR 
LET @BTPT := #0 
. CLR aBrer 
ENDIF 
500768: 
IF #xO.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMOWRD THEN 
BIT #xO ECT, 
BEQ S003 7$ 
BIT #CMD CO, 


GLOBAL AREAS 
CZTSHD.P11 


007142 
007144 


007144 
007150 
007150 
007152 
007152 
007152 
007156 
007160 
007164 
007164 
007164 
007164 
007164 
007164 
007164 
007170 
007170 
007172 
007172 
007172 
007176 
007200 
007200 
007204 
007204 
007206 
007206 
007206 
007212 
007212 
007212 
007220 


007272 
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001003 


004737 
000405 
105737 


001402 
004737 


004737 
000707 
105737 
001403 
105037 
104424 


004737 
026527 


001450 


032737 
001421 


032765 
001014 


032765 
001406 


105737 


001402 
004737 


000402 
004737 


010326 


003450 
010326 


015520 


003443 


003443 


015452 


002532 


000400 


000002 


000001 


003450 
010636 


010636 
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177777 


003346 


003426 


003426 


08:51 
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M6 


JSR PC,EXCUTE 
LSE 


IFB ALLEOT NE #0 THEN 
JSR PC, EXCUTE 
ENDIF 
ENDIF 
ENDIF 
JSR PC,NEXTU 
ENODDO 
IFB RPTFLG NE #0 THEN 


LET RPTFLG :B= #0 
DORPT 
ENOIF 


JSR PC,FIRSTU 
WHILE DEVTBL(RS) NE #END DO 


BEG 

IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE _— 
BEQ 

IF #xO.BOT NOTSETIN EOTFLGC(RS) THEN ;IF NOT AT os 
IF #xO.EOT SETIN EOTFLGC(RS) THEN 


IFB ALLEOT NE #0 THEN 


JSR PC,GOWAIT 
ENDIF 
ELSE 


JSR PC,GOWAIT 
ENDIF 


SEQ 0077 
50040$ 


500375: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
; ISSUE CMD TO TS04 


aR 500415 
500405: 

TSTB = ALLEOT 

BEQ 50042$ 
50042$: 
500415: 


50035$: 
sFIND NEXT UNIT IN TEST CYCLE. 
BR 50026$ 


500275: 
;IF REPORT HAS BEEN REQUESTED THEN: 
TSTB RPTFLG 
BEQ 50043$ 


CLRB RPTFLG 
sPRINT THE PERFORMANCE REPORT. 
TRAP CsDRPT 
50043$: 
;SET UP FOR FIRST UNIT 
;WHILE THERE ARE MORE DEVICES: 
50044$: 
CMP DEVTBLCR 
50045$ 
#mM0.CO, 
50046$ 
#x0.B0T, 
BNE 50047$ 
;BUT IF AT EOT 
BIT #xO.E0OT, 
BEG 50050$ 
;AND ALL OTHERS AT EOT 
TSTB ALLEOT 


BEQ S0051$ 
; THEN WAIT FOR CMD END 
;IF NOT ALL AT EOT, DON 


5005158: 

sNOT AT BOT, AND NOT AT 
BR 50052 

500505: 


sWAIT FOR INT,Cr 
500528; 


GLOBAL AREAS 
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007272 
007272 
007272 
007272 
007274 
007274 
007274 
007302 
007304 
007312 
007314 


007314 
007320 
007320 
007322 
007322 
007322 
007326 
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000420 


032765 
001404 
032737 
001003 


004737 
000405 


010636 


105737 
001402 
004737 


003450 
010636 


004737 
000724 
000207 


015520 
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000001 003426 
000001 003346 


N6 


ENDIF 
50047$: 
ELSE sELSE IF CMD IS FORWARD: 
BR 50053$ 
50046$: 
IF 4x0.EOT NOTSETIN EOTFLGCRS) OR #CMD.CO NOTSETIN CMDWRD THEN 
BIT #xO.EOT, 
BEQ 50054 $ 
BIT #CMD.CO, 
BNE 50055$ 


50054$: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 


JSR PC,GOWAIT sWAIT FOR INT,CHECK STATUS. 


ELSE 
BR 50056$ 
50055$: 
IFB ALLEOT NE #0 THEN 
TSTB ALLEOT 
BEQ 50057$ 
JSR PC,GOWAIT 
ENDIF 
500575: 
ENDIF 
50056$: 
ENDIF 
50053$: 
JSR PC NEXTU sF IND NEXT UNIT IN TEST CYCLE. 
ENDDO 
BR 50044$ 
500455: 
RTS PC ;RETURN. 


SEQ 0078 


GLOBAL 


ARE AS 


ZTSHD P11 


007416 
007416 
007420 
007420 
007420 
007424 
007426 
007426 
007432 
007432 
007434 
007434 
007434 
007436 
007436 
007440 
007442 
007444 
007450 
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112337 
111337 


013704 
004737 


112337 
112337 


111337 
000207 


005003 
026304 
001403 
062703 
000772 


010304 


006203 
000240 
060403 
062703 
000207 


003346 
007416 
005 706 
005707 
005710 


003352 
007416 


006022 
006023 
006024 


003562 


003650 
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CMDAC:; 


GCMDA: : 


B/ 


SEQ 9079 


THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMOWRD 


CONTAINS CURRENT CMD AND LOCATION PCMOWD CONTAINS PREVIOUS CMD. 


INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4, 
CALLS: GCMDA 


LET R&@ :* CMDWRD 

JSR PC ,GCMDA 
(R3)+, STAERL +2 
(R3)+,STAERI +3 
MOVB (R3),STAER1 +4 
LET R4 := PCMOWD 


JSR PC .GCMD 
LET STAER7+24 _ (R3)> 


LET STAER7+25 :B= (R3)- 
LET STAER7+26 :B= (R3) 
RTS PC 


SUBROUTINE TO FIND THE ASCII EQUIVILENT BPs, COMMAND IN R4, 


sR4 = CMD BINARY, 


sGET CMD ASCII. 
_— CMD ASCII 


FINTO MSG. 
3R4 = PREVIOUS CMD a 
Vv 


sGET CMD ASCII. 
sMOVE CMD ASCIT 
MOVB 


MOVB 


3 
s INTO MSG. 


sRETURN. GO EXECUTE NEAT FUNCTION 


ADORESS OF ASCII 1ST WORD IS RETURNED IN 


INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


LET R35 :* 00 
WHILE CMDTBLCR3) NE R4& DO 


LET R3 :* RB + 02 
ENDDO 
LET R&@ 32 RS 
LET R3 := R3 SHIFT -1 
NOP 
ADD R4,R3 
ADO eCMDASC RE 
RTS PC 


R4 = PRESENT COMMAND WORD. 
RS = ADDRESS OF PRESENT COMMAND ASCII. 


sINIT CMD TBL POINTER, an 
sUNTIL CURRENT CMD IS FOUND: 


500605: 
CMP 
BEQ 
sSEARCH CMD TABLE. 
ADD 
BR 


500618: 


MOV 
sPOIN!T TO ASCII FOR a 
S 


sRETURN, 


CMDWRD ,R 


PCMOWD .R 


(R3)+,5T 
(R3)+,S7 
ate STA 


R3 

CMO TBLCR 
50061 
22 ,R3 
50060 $ 


R3,RS 
Rs 


GLOBAL AREAS 
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005037 
012137 
011157 
011137 
013702 
042702 
010203 
162703 
001003 
011137 
000461 


023727 
001003 


012737 
010203 
162.03 
001017 
013737 


032737 
001404 


012737 
000403 


012737 


000427 
010203 
162703 
001011 


012737 
012737 


011137 


012737 


002310 
177740 


000010 
002312 


002310 


000002 


000001 


003336 
000400 


000004 


000020 
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100011 


003354 


002312 
002310 


003354 


003354 


002312 
002316 


002316 


PAGE 


C/ 


82 
GLOBAL SUBROUTINES SECTION 
THIS SUBROUTINE LOADS THE TSO4 COMMAND PACKET FROM ONE 


SETUP:: 


es: 


1$; 


43; 


ENTRY IN THE SEQUENCE TABLE. 
INPUTS: 


OUTPUTS: 

REGISTERS: R2, R35. 
CALLS: GENPAT. 
LET CMDLG := 00 

MOV CR1)+,CMDPKT 
MOV (RL), CMOPKT+CP.CNT 
MOV (R1),BRFECNT 
MOV CMDPKT ,R2 

BIC @NCMD.C,R2 

MOV R2,R3 

SUB CMD .C3,R3 

BNE es 

ose laa ~CMDPKT+2 
IF CMDOPKT EQ OwIM THEN 


LET CMOLG :* @2 


ENDIF 

MOV R2,R3 

SUB @CHD.CO,R5 

BNE 1$ 

MOV DATARD, CMDPKT «CP. ADL 


IF @MOD.CO SETIN CMDPKT THEN 


LET CMDLG ;:= 04 


ELSE 
LET CMDLG :* 6 
ENDIF 
BR 3$ 
MOV R2,R3 
SUB @CMD.C2,R3 
BNE 43 
LET CMOPKT+CP.ADL :* @SCHBK 
MOV OSCHCNI, *. Pella CNT 
LET SCHBK+6 :* (RI 
BR 3$ 
MOV R2,R35 
SUB @CMD.C1LIECMD.C2,R3 
BNE 3% 
MOV @DITACNT ,CMOPKT+-CP.CNT 


SEG 9080 


sCLR CMD LOGGING ee LOGGING ) 


CMOLG 
sLOAD THE COMMAND WORD. 
sLOAD THE BYTE/RECORO/FILE COUNT. 
Jy BRF FOR THIS COMMAND. 
sGET CMO. 
sCLR ALL BUT CMD BITS. 
sSAVE IT TWICE. 
sPOSITION COMMAND? 
;8R IF NOT. 
sMOVE BPCR IN OND PKT WORD FOR POSITION 


sIF CMD IS A WRITE TAPE MARK THEN: 


CMP CMOPKT, 
BNE 500628 
sWT™M LOGGING CODE IS 2. 
MOV 2,CMDLG 
500623: 
sIS IT A READ? 
3;8R IF NOT. 
:IF SO, LOAD THE BUFFER ADOR. 
sIF CMD IS A READ REV THEN: 
BIT @mMo0 .CO, 
BEQ 50063$ 
sLOGGING CODE IS 4. 
MOV 24,CMOLG 
sELSE - IF CMO IS A READ Fwd: 
BR 50064 $ 
500635: 
sLOGGING CODE IS 6. 
MOV 96 .CMDLG 
500645; 
sCONTINUE. 
31s IT 
3A SET CHARACTERISTICS CME? 
;8R IF NOT 
3SET UP AOR LO FOR SET CHAR, 
MOV @SCHBK.C 


sSET BUFFER EXTENT 
sSTORE CHARACTERISTIC CODE IN SCH BLOCK. 
MOV CRLY,SCh 


3A DT AGNOSTIC (OIA) CMO? 
:6R IF NOT. 
3. OAD BUFFER EXTENT, 


AREAS 


Pil 


MACYL1 “ys eae? 
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012737 
005721 


012137 
005037 
012137 
010203 
162703 
001010 
013737 
004737 
012737 


032737 
001407 


112737 
042737 


000402 


105037 


013737 
013737 


105737 
001403 


052737 


042737 


013737 
000207 


005334 


003342 


003340 
003374 


000005 


003334 
010030 


000002 
000100 
000001 
000100 


003442 


003346 
002310 
003444 


010000 


004000 
002310 
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002312 


002312 


003354 
002310 


003442 
902310 


003352 
003346 


002310 


002310 
003350 


D/ 


PAGE 


MOV @DTABLK ,CMDPKT+CP. ADL 


3$; TST (RL)> 
LET NCNT1 :* CRL1)> 
LET NCNT := 00 
MOV (R1)+,PATERN 
MOV Re, 
SUB @CMD.CO!CMD.C2,R3 
BNE S$ 
MOV DATAWT ,CMDPKT +CP. ADL 
JSR PC ,GENPAT 
LET CMOLG :* #2 
S$: IF @vVFY.C SETIN CMDPKT THEN 


LET VFYFLG :B= o1 
Ay ovFy .C,CMDPKT 
LET VFYFLG :B= 00 

ENDIF 

LET PCMOWD := CMDWRD 
LET CMDWRD := CMDPKT 
IFB SWBFLG NE 00 THEN 


SEQ 0081 


sLOAD BUFFER ADR LOW. 
sPOINT TO N (NUMBER OF TIMES TO EXECUTE 
sSAVE NUMBER OF OPERATIONS 

MOV €R1)+,NC 
;CLEAR OPERATION COUNTER. 


CLR NCNT 
4 og  Saece CODE FOR CURRENT CMD. 
H 
sA WRITE? 
3BR IF NOT. 


sLOAD WRITE BUFFER LO ORDER. 
:GO GENERATE THE WRITE PATTERN. 
sWRITE LOGGING CODE IS 2. 


MOV €2,CMOLG 
sIF DATA VERIFICATION IS REQUIRED: 

BIT @vFY.c.Cc 

BEG 50065$ 
3SET VERIFY FLAG. 

MOvVB @1,VEYFL 


sCLEAR VERIFY BITCNOT USED BY HARDWARE ). 
sIF DATA VERIFICATION IS NOT REQUIRED: 


BR 50066 $ 
500655: 
;CLR VERIFY FLAG. 
CLRB VF YFLG 
50066$: 
sSAVE PREVIOUS CMD WORD. 
MOV CMOWRD ,P 
;SAVE PRESENT CMD WORD. 
CMOPKT .C 


MOV 
sIF SWAP BYTES IS ENABLED: 
TSTB SWBFLG 


BEQ 50067$ 
LET CMOPKT := CMDPKT SET.6Y @SWB.C ;SET SWAP BIT IN COMMAND. 
BIS 2SwB .C.C 
ENOIF 
500675: 
BIC OBRFE .C,CMDPKT ;CLR BRF BIT CINTERNAL ONLY). 


LET CMOSAV := CMDPKT 
RTS Pc 


sSAVE 1ST WORD OF COMMAND PACKET. 
MOV CMOPKT .C 
sRETURN, 


GLOBAL 


AREAS 


CZTSHD.P11 


010110 
010112 


010114 
010114 
010120 
010120 


010124. 


010126 
010126 
010130 
010130 
010134 
010134 
010140 
010142 
010142 
010146 
010146 
010146 
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013703 
006303 


013704 
005204 


042704 
162704 


013702 
062702 
004773 
000207 


010114 
010152 
010172 
910202 
010226 
010240 
010252 
010272 
010324 


012703 


162704 
100411 


010322 
062703 


020327 
001002 


012703 


000 764 


000400 
000002 


001002 
001000 


000400 
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GENPAT:: LET R3 :* PATERN SHIFT 


PAGE 64 


-e 


SEQ 0082 


THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERAT 


THE DESIRED PATTERN FOR 


INPUTS: 
OUTPUTS: 

REGISTERS: R2, R3 
CALLS: PATRO 


LE 


LE 
LE 
LE 


JSR 


RT 


3TSO4 WRITE PATTERN LOOKUP TABLE. 


T R4 :* BRFCNT + 01 


T R4 := R44 CLR.BY O1 
T RA :* RA - 02 
T R2 := DATAWT + @2 


PC, @PATIBL(R3) 
S PC 


THE WRITE AND WRITE/VERIF yY COMMANDS. 


Ra. 

PATR? 

1 ;SETUP PATTERN ROUTINE POINTER 
MOv 
ASL 

:SET LENGTH OF WRITE BFR 
MOv 
INC 

sROUNDED UP TO NEXT WORD na 

:WITH FIRST .WORD RESERVED me 

FOR RECORD COUNT 

MOV 


add 
:GO GENERATE THE APPROPRIATE PATTERN. 
sRETURN TO SETUP SUBROUTINE. 


USED TO JSR TO THE 


sCORRECT DATA PATTERN GENERATING ROUTINE. 
PATTBL: PATRO 


PA 


TR1 


PATR2 


PA 
PA 
PA 
PA 
PA 
PA 


3I 


TRS 
TR4 
TRS 
TRE 
TR7 
TRE 


NCREMENTING PATTERN. 


PATRO:: LET R3 := #400 


1$: 


LE 


BMI 


LE 
LE 
IF 


T RA := RO - #2 


es 
T CR2)+ :* RB 
T R3 := R3 + 01002 
R3 EQ #1000 THEN 


LET R3 :* 0400 


ENOIF 


1$ 


0 - 377. 

MOV 
sDECREMENT WORD COUNT. 

SUB 
;BR IF DONE. 
sSTORE DATA WORD. 

MOV 
sUPDATE PATTERN. — 
:IF PATTERN HAS WRAPPED AROUND — 

BNE 

;INIT THE PATTERN AGAIN, 
MOV 


500708; 
300 IT AGAIN, 


PATERN,R 
R3 


BRFCNIT,R 
R4 


#1,R4 
@2,R4 


DATAWT ,R 
#2,R2 


2400 23 
@2,R4 


RE,CRO)- 
#1002,R3 


R3, 21000 
SOO 70s 


#40, RE 


AREAS 


010150 


010152 
010156 
010156 
010162 
010164 
010166 


010170 


* 


F7 
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Pill 06 -APR -84 0 
000207 


012703 177777 


162704 000002 
100402 
010322 
000773 


000207 
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2s: — RTS PC 
;ALL ONE'S PATTERN. 
PATR1:: MOV #-1,R3 
ZROPAT: LET R4 :2 R4 - 42 
BMI 1$ 
MOV R3,C(R2)> 
BR ZROPAT 
1$: RTS PC 


sRETURN. 


sALL ONES PATTERN;. 
;DECREMENT BYTE COUNT. 


;00NE?,6R IF YES. 


SUB 


sIF NOT LOAD NEXT BYTE WITH PATTERN. 


300 IT AGAIN. 
;RETURN, 


S*Q 0083 


#2,R4 


GLOBAL AREAS 
CZTSHD.P11 


010172 
010174 
010200 


010202 
010206 
010206 
010212 
010214 
010216 
010220 
010222 
010224 


010226 
010232 
010236 


010240 
010244 
010250 


010252 


010270 


010272 


010322 


010324 
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005003 
004737 
000207 


010156 


012703 000401 


000002 


177376 
010206 


012703 
004737 
000207 


125125 
010156 


177400 
000002 


012703 


000002 


003362 
003360 
003362 


003360 
003362 
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PATR 


fy 


PATR3:: 
WLKZRO: 


1$: 


PATR4:: 


PATRS:: 


PATRE:: 
1$: 


2s: 


PATR?:: 


GIT: 
3 
PATRB:: 


G/ 
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sALL ZEROES PATTERN. 


CLR R3 sCLR PATTERN REGISTER. 
JSR PC, ZROPAT 3GO GENERATE IT. 
RTS PC sRETURN. 


;ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 


MOV #401,R3 sINIT PATTERN REGISTER. 

LET R4 :* RA - 42 sDECREMENT WORD COUNT. 

BMI 1$ ;BR IF DONE. 

MOV R3,CR2)> sLOAD DATA. 

ASL R3 ;SHIFT PATTERN. 

AOC R3 :ADD CARRY BACK INTO PATTERN. 
BR WLKZRO 300 IT AGAIN. 

RTS PC ;RETURN. 


;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1'S. 


MOV 0177376,R3 sINIT PATTERN REGISTER. 
JSR PC ,WLKZRO 3GO GENERATE ;IT. 
RTS PC ;RETURN. 


sALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
;COMPLEMENTED. 


MOV #125125,R5 sINIT PATTERN REGISTER. 
JSR PC,ZROPAT 3GO GENERATE IT. 

RTS PC sRETURN. 

sALTERNATING BYTES OF OOO AND 377. 

MOV #177400,R3 ;INIT PATTERN REGISTER, 
LET R4 :* RA - 42 ;DECREMENT WORD COUNT. 
BMI es 3;BR IF DONE. 

MOV R3,(R2)- sLOAD DATA. 

BR 1$ 300 IT AGAIN. 

RTS PC sRETURN. 


;RANDOM PATTERN GENERATOR 
LET R&4 := R4 - 02 sDECREMENT WORD COUNT 


BMI GIT ;BR IF DONE. 
ADD RANS ,RANB 

ADD RANB ,RANS ;GET NEW @, 
MOV RANS ,CR2)-+ sSAVE @, 

BR PATR? sCONTINUE. 
RTS PC 3RE TURN 

NO PATTERN GENERATION, 

RTS PC sRETURN, 


SUB 


SUB 


Sus 


SEQ 0084 


#2,R4 


#2,R4 


#2,R4 
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012737 


005337 


032775 
001756 


023727 
001022 


010537 
004737 


026527 
001405 
004737 
004737 


000767 
013705 


016537 


016503 
‘005002 
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177777 


003364 
003364 
011224 


015554 


000200 


003346 


003400 
015452 


002532 


011170 
015520 


003400 
002502 


002502 


003364 


002462 


140004 


177777 


002442 
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SEG 008 
: THIS SUBROUTINE INITIATES TSO4 COMMAND EXECUTION 
: AND CHECKS FOR TSO4 RESPONSE. 
3 INPUTS: 
3 OUTPUTS: 
3 REGISTERS: R2, R3. 
3 CALLS: DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 
EXCUTE:: LET TIMEL := #-1 sINIT TIMEOUT COUNTER. 
MOV #-1, TIME 
REPEAT sWAIT - 
50071$: 
LET TIME1 := TIME1 - 41 sUPDATE TIMEOUT COUNTER. 
DEC TIME1 
IF TIME1 EQ #0 THEN ;IF TIMED OUT: 
Tst TIME1L 
BNE 50072$ 
JSR PC,MOVMSG sMOVE CURRENT PACKET MSG. 
ERRDF #2,NSSRM,STAERM sREPORT TSO4 NOT READY 
TRAP CSERDF 
. WORD 2 
.- WORD NSSRM 
. WORD STAERM 
JSR PC,OROPU ;DROP THE UNIT. 
BR EXCRIN sRETURN,. 
ENDIF 
50072: 
UNTIL @TS.SSR SETIN @TSSR(RS) sWAIT UNTIL DEVICE IS READY. 
BIT #TS.SSR, 
BEQ 50071$ 
IF CMDOWRD EQ @SCH THEN :IF WE ARE DOING A SET CHAR CMD THEN: 
CMP CMOWRD . # 
BNE 50073$ 
LET RSSAVE := RS ;SAVE CURRENT DEVICE POINTER. 
MOV RS,RSSAV 
JSR PC,FIRSTU :F IND FIRST UNIT. 
WHILE DEVTBL(RS) NE #END DO 
500743: 
CMP DEVTBLC(R 


JSR PC,WSSR 
JSR PC,NEXTU 
ENDDO 
LET RS := RSSAVE 
LET SCHBK ;= MSGPKACRS) 
ENOIF 
LET R3 :* MSGPKACRS) 
LET R2 := #0 
WHILE R2 NE @MSGCNT DO 


BEG 50075$ 
sWAIT FOR UNIT READY OR TIME OUT, 
sFIND NEXT UNIT. 


BR 50074$ 
500758: ‘ 
sRESTORE CURRENT DEVICE POINTER. 
MOV RSSAVE,R 
3;SET UP ADR OF MSG PKT IN SCH BLOCK. 
MOV MSGPKACR 
50073$s;: 
sADR OF THIS UNIT'S MSG PACKET. 
MOV MSGPKACR 
;CLR COUNTER. 
CLR Re 


sWHILE THERE ARE MORE LOCATIONS: 
50076$: 


¢ 
2 


T7 
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3595 010462 020227 000016 , CMP R2, #MSGC 
3596 010466 001405 BEQ 50077$ 
3597 010470 LET (R3)+ :* @-1 s INIT THE MSG PACKET WITH ALL 1'S 
3598 010470 012723 177777 MOV #-1,CR3) 
3599 010474 LET R2 :* R2 + #2 sUPDATE COUNTER. 
3600 010474 062702 000002 ADD #2 ,R2 
3601 010500 ENDOO 
3602 010500 000770 BR 50076$ 
3603 010502 50077$: 
3604 010502 105737 002210 TSTB DINT sARE INTERRUPTS DISABLED. 
3605 010506 001023 BNE 1$ ;BR IF YES. 
3606 010510 IFB INTFLGCRS) GT #1 THEN ;IF MORE THAN ONE INTERRUPT HAS OCCURED: 
3607 010510 126527 003416 000001 CMPB INTFLGCR 
3608 010516 003412 BLE 50100$ 
3609 010520 LET TSSREG := @TSSR(RS) sFREEZE THE CURRENT STATUS REG F 
3610 010520 017537 002462 003402 MCV @TSSRCRS 
3611 010526 ERRDF #15, TOOMM,STAERM sREPORT TCO MANY INTERRUPTS. 
3612 010526 104455 TRAP CSEROF 
3613 010530 000017 «WORD 15 
3614 010532 004460 «WORD TOOMM 
3615 Ol 005372 «WORD STAERM 
3616 010536 004737 015554 JSR PC,DROPU ;DROP THE UNIT 
3617 010542 000434 BR EXCRIN sRETURN - UNIT HAS BEEN DROPPED. 
3618 010544 ENDIF 
3619 010544 50100$: 
3620 010544 LET INTFLGCRS) := #0 ;CLR INTERRUPT FLAG FOR THIS DEV. 
3621 010544 005065 003416 CLR INTFLGC(R 
3622 010550 052737 000200 002310 BIS @IE .C,CMOPKT ;SET INT ENABLE BIT. 
3623 010556 1$: IFB ERRREC EQ 00 THEN ;IF NOT RETRYING 
3624 010556 105737 003415 TSTB ERRREC 
3625 010562 001005 BNE SO101$ 
3626 010564 LET RECCNT(RS) := RECCNTC(RS) + @1 
3627 010564 005265 003324 INC RECCNTC(R 
3628 010570 LET @DATAWT := RECCNT(RS) 3 THEN UPDATE REC COUNT TO WRITE IT ON TA 
3629 010570 016577 003324 172536 MOV RECCNT(R 
3630 010576 ENDIF 
3631 010576 501018: 
3632 010576 012775 002310 002452 MOV @CMDPKT ,aTSOBCRS ) sLOAD TSOB WITH CMDPKT ADDRESS 
3633 sTHIS INITIATES COMMAND EXECUTION. 
3634 010604 IF #TS.SSR SETIN @TSSR(RS) THEN ;IF READY DID NOT DROP THEN: 
3635 010604 032775 000200 002462 BIT @TS.SsR, 
3636 010612 001410 BEQ 50102$ 
3637 010614 004737 011224 JSR PC,MOVMSG sMOVE CURRENT MESSAGE PACKET TO COMMON 
3638 010620 ERRDF #3, 1TOERM,STAERM sREPORT NO TSO4 RESPONSE. 
3639 010620 104455 TRAP CSsEROF 
3640 010622 000003 «WORD 3 
3641 010624 004207 . WORD TOERM 
3642 010626 005372 -WORD = STAERM 
3643 010630 004737 015554 JSR PC,DOROPU ;DROP THE UNIT 
3644 010634 ENDIF 
3645 010634 SOL0eS: 


3646 010634 000207 EXCRTN: RTS PC RETURN, 
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012737 


104422 


023727 
001014 


012727 
000000 
013727 
000000 
005367 
001375 


005367 
001367 


023727 


002532 
011152 


177777 


003346 


000012 
002116 
177772 
177756 


003346 
003346 


000014 
002116 
177772 
177756 
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SEG 0087 


: THIS SUBROUTINE WAITS FOR THE TSO4 INERRUPT OR DONE BIT TO SET AND ALLOW 
: OPERATOR TO TRANSFER CONROL TC THE SUPERVISOR. 
3 UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
3 LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 
3 INPUTS: 
: OUTPUTS: 
: REGISTERS: R2, R3. 
H CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 
GOWAIT:: IF DEVTBL“RS) EQ #NINUSE sBTL 
177774 CMP DEVTBL‘R 
BNE 501035 
JMP 1$ ;BTL 
ELSE ;BTL 
BR 50104$ 
50103$: 
ENDIF sBTL 
501048: 
LET TIME1 := #-1 sINIT TIME OUT COUNTER. 
003364 MOV 9-1, TIME 
REPEAT sREPEAT UNTIL gm te OCCURES: 
1 
BREAK ;GO TO THE SUPER TO ae TTy INPUT. 
Rap CsBRK 
IF CMDWRD EQ @RWD THEN ;IF COMMAND WAS REWIND men: 
102010 CMP CMOWRD , ¢ 
BNE 50106$ 
DELAY 10. sWAIT EXTRA MSECS EACH LOOP. 
MOV #10. ,¢PC 
. WORD ° 
MOV LS$OdLY,(P 
. WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22¢PC) 
BNE .-20 
ENDIF 
50106$: 
IF CMDWRD EQ #SFF OR CMDWRD EQ #SFR THEN 
105010 CMP CMOWRD , + 
BEG 50107$ 
105410 CMP CMOWRD , * 
50110$ 
501078: 
DELAY le. ;ADD DELAY FOR SPACE TAPE MARK COMMANDS 
MOV #12. ,CPC 
. WORD 0 
MOV LSDLY,(P? 
wORD re) 
DEC -O. PC? 
BNE . 4 
DEC -22( Po) 
BNE - -e0 
ENDIF 
5SOL1LCS: 


IFB DOIN! &Q #0 THEN 


;IF INTERRUPTS ARE ENABLED. 


K 7 
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3703 010774 105737 002210 TSTB DINT 
37 011000 001003 BNE SO111$ 
3705 011002 LET R2 := INTFLGCRS) sFETCH INTERRUPT OCCURRED FLAG. 
3? 011002 016502 003416 MOV INTFLGCR 
3707 011006 ELSE :IF IN BRUTUS MODE : 
3? 011006 000406 ~ BR S5Olle$ 
3709 011010 50111$: 
3710 011010 LET R3 := COMP #TS.SSR ;SET UP A MASK FOR THE DONE BIT. 
37il 011010 012703 000200 ~ MOV @TS.SSR, 
3712 011014 005103 . COM R3 
3713 011016 LET R2 := @TSSRCRS) CLR.BY R3 ;FETCH DONE BIT. 
3714 011016 017502 002462 ; " MOV @TSSRCRS 
3715 011022 040302 . BIC R3,Re 
3716 011024 ENDIF : 
3717 011024 501128: 
3718 011024 LET TIME] :+ TIMEL - #1 sUPDATE TIMEOUT COUNTER. 
3719 011024 005337 003364 DEC TIME1L 
3720 011030 UNTIL R2 NE #0 OR TIME1 EQ 40 sREPEAT UNTIL INTERRUPT OR READY OCCURES 
3721 011030 005702 TST Re 
3722 011032 001003 BNE 501138 
3723 011034 005737 003364 TST TIME1 
3724 011040 001310 » BNE 50105$ 
3725 011042 50113$: 
37 011042 IF TIMEL EQ #0 THEN ;IF TIME OUT HAS OCCURRED: 
3727 011042 005737 003364 TS TIME1 
3728 011046 001022 BNE 50114$ 
3729 011050 LET @DATAWT := RECCNTC(RS) - #1 ;RE-ADJUST REC COUNT DOWN 
3730 011050 016577 003324 172256 MOV RECCNT(R 
3731 011056 005377 172252 DEC @DATAWT 
3732 011062 004737 011224 JSR PC,MOVMSG sMOVE CURRENT MSG PACKET TO COMMON AREA. 
3733 011066 ERRDF #4,NOINTM,STAERM sREPORT NO INTERRUPT. 
3734 011066 104455 TRAP CSEROF 
3735 011070 000004 «WORD 4 
3736 011072 004421 «WORD NOINTM 
3737 011074 005372 «WORD STAERM 
3738 011076 004737 015554 JSR PC,DROPU ;DROP THE UNIT. 
3739 011102 LET R3 := #ENDERF 

3740 011102 012703 003416 MOV #ENDERF, 


3741 011106 004737 011154 JSR PC,CLRERR ~ 3CLEAR ALL ERROR FLAGS 


L/ 
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3742 
3743 011112 ELSE 
3744 O11112 000417 BR SO115$ 
3745 011114 50114$: 
3746 011114 004737 011224 JSR PC,MOVMSG sMOVE CURRENT MSG. PACKET TO COMMON AREA 
3747 011120 004737 011310 JSR PC,RECUD sUPDATE THE RECORD COUNT. 
3748 011124 004737 011456 JSR PC,CHKERR ;CHECK FOR STATUS ERRORS. 
3749 011130 IFB WRTYFG EQ #0 THEN F 
37 011130 105737 003407 TSTB WRT YFG 
3751 011134 001006 BNE SO116$ 
3752 011136 004737 014102 JSR PC,LOG ;LOG BYTES AND ERRORS. 
3753 011142 LET R3 :* #ENDERF 
37 011142 012703 003416 MOV #ENDERF , 
3755 011146 004737 011154 JSR PC,CLRERR ;CLEAR ALL ERROR FLAGS 
3756 011152 ENDIF 
3757 011152 501168: 
3758 011152 ENDIF 
3759 011152 SO11SS: 


3760 011152 000207 1$: RTS Pc sRETURN IF DONE. 
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011154 
011154 
011160 
011160 
011160 
011160 
011162 
011162 
011164 
011166 


011170 
011170 
011176 
011176 
011176 
011176 
011200 
011200 
011204 
011204 
011212 
011214 
011220 
011222 


011222 
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012702 


005022 
020203 


001375 
000207 


012737 


104422 
005337 
032775 
001003 


005737 
001366 


000207 


08:49 


003404 


177777 


003364 
000200 
003364 
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003364 


002462 


M/ 
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WSSR:: 


SEQ 0090 
SUBROUTINE TO CLEAR FLAGS. 
INPUTS: R3 = LWA TO BE CLEARED + 2. 
OUTPUTS: 
REGISTERS: R2 
CALLS: 
CLRERR:: LET Re := #BGNFLG 
MOV #BGNFLG, 
REPEAT ; 
50117$: 
LET (R2)+ := #0 
CLR (R2)+ 
UNTIL R2 EQ R3 
CMP R2,R3 
BNE 50117$ 
RTS PC 
SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 
LET TIME1L := #-1 sINIT TIMEOUT COUNTER. 
MOV #-1, TIME 
REPEAT sREPEAT UNTIL “ge Se OR TIMEOUT: 
BREAK ;BREAK TO THE SUPERVISOR. 
TRAP CSBRK 
LET TIME1L := TIME1 - #1 sUPDATE TIMEOUT COUNTER. 
DEC TIME1L 
UNTIL #TS.SSR SETIN @TSSRCRS) OR TIME1 EQ #0 
BIT #TS.SSR, 
BNE 50121$ 
TST TIMEL 
BNE 50120$ 


RTS PC 


S5Ole1$: 
;REPEAT UNTIL DEV READY OR TIMEOUT. 


;RETURN. 
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011224 
011232 
011232 
011236 
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017537 


013702 
042702 


010237 
006237 


016503 
005002 
020227 
001405 
012362 
062702 
000770 


013765 
000207 


08:4 


002462 003402 


003402 
177761 


003376 
003376 


002502 


000016 


002334 


000002 


002342 003426 


MOVMSG:: LET TSSREG 


a 
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N7 


SEQ 0091 


SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE ‘COMMON AREA AND 
TO UPDATE THE CURRENT TERMINATION CLASS CODE. 


INPUTS: 
OUTPUTS: 


REGISTERS: 


CALLS: 


LET CTCcCc 


LET R3 
LET Re := 


R2, R3. 


:* @TSSRCRS) 
LET R2 := TSSREG CLR.BY #TSC.TCC 


:= R2 SHIFT -1 


#0 


:= MSGPKACRS ) 


WHILE R2 NE #MSGCNT DO 


LET MSGPKTCR2) 


LET Re 
ENDDO 


:= R2 


LET EOTFLG(RS) 
RTS PC 


Man 


:= (R3)-+ 
+ #2 


:= MSGPKT+«MS.XSO 


sFREEZE THE STATUS REG — 
V 
sEXTRACT THE en ne | CODE, 


sAND SAVE IT 


BIC 


MOV 
ASR 


sADR OF THIS DEVICE'S MSG. 
MOV 
;CLR COUNTER. 
CLR R2 
sWHILE THERE ARE MORE LOCATIONS: 
SOl22$: 


BEQ 


sMOVE MSG TO COMMON AREA. 


s UPDATE 


COUNTER. 


50123$: 
sMOVE XSTATO TO EOT FLAG. 


MOV 


@TSSRCRS 


TSSREG.R 
#TSC.TCC 


R2.CTCC 
crcc 


MSGPKACR 


R2, #MSGC 
50123$ 


CR3)+.MS 
#2,R2 
SOl22$ 


MSGPKT+M 


38 
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3a88a : SUBROUTINE TO ADJUST THE RECORD COUNT. 
3a89 Hy INPUTS: 
3840 3 OUTPUTS: 
3841 3 REGISTERS: 
ay | Q CALLS: 
$844 011310 RECUD:: IFB RECLOG FQ 00 THEN sIF RECORD HAS NOT BEEN LOGGED: 
3845 011310 105737 003411 TSTB RECLOG 
3846 011314 001057 BNE 50124$ 
3847 011316 LET RECCNI(RS) := RECCNIC(RS) - 1 
3848 011316 005365 003324 DEC RECCNI(R 
3849 011322 IF @BITO NOTSETIN CTCC AND @xX2.0PM SETIN MSGPKT+MS.xS2 THEN IF TAPE 
3850 011322 032737 OO00001 003376 BIT OBITO,CT 
3851 011330 001046 BNE 501253 
3852 011332 032737 100000 002346 BIT @x2.0PM, 
3853 011340 001442 BEQ 50125$ 
3854 011342 LET RECLOG :B* RECLOG + @1 ;SET RECORD LOGGED, 
3855 011342 105237 003411 INCB RECLOG 
3856 011346 IF CMOWRD EQ ORWD THEN sIF THIS IS A REWIND CMD: 
3857 011346 023727 003346 102010 CMP CMOWRD , o 
3858 011354 001003 BNE 50126$ 
3859 011356 LET RECCNI(RS) :* 00 ;CLEAR RECORD COUNT, 
3860 011356 005065 003324 CLR RECCNTC(R 
3861 011362 ELSE 
3862 011362 000431 BR 501278 
3863 011364 501268: 
3864 011364 IF OBRF.C SETIN CMOWRD THEN :IF BREF USED, UPDATE RECORD COUN 
3865 011364 032737 004000 003346 BIT OBRF .C.C 
3866 011372 001425 BEQ 501308 
3867 011374 IF @M0D0.CO NOTSETIN CMOWRD THEN ;IF A FORWARD CMO: 
3868 011374 032737 000400 003346 BIT @MoD .CcO,. 
3869 011402 001007 BNE 50131$ 
3870 011404 IF @M0D.CO NOTSETIN PCMDWO THEN ;IF PREV CMD WAS A FWD ALSO: 
3871 011404 032737 000400 003352 BIT @mMoo.Cco, 
3872 011412 001002 BNE 501323 
3873 011414 LET RECCNT(RS) :2 RECCNICRS) + @1 3 INCREMENT RECORD COUNT. 
3874 011414 005265 003324 INC RECCNTC(R 
3875 011420 ENDIF 
3876 011420 501323: 
3877 011420 ELSE 3IF REVERSE CMO: 
3878 011420 000412 BR 501338 
3879 011422 SOi31$: 
3880 011422 IF @MOD.CO SETIN PCMDWD THEN ;IF PREVIOUS CMD WAS A REV ALSO: 
3881 011422 032737 000400 003352 BIT emMo0 .CcO. 
3882 011430 001406 BEQ 501343 
3883 011432 IF @xO.BOT NOTSETIN EOTFLG(RS) THEN ;WHEN NOT AT BOT THEN 
3884 011432 032765 000002 003426 BIT 2x0.B0", 
3885 011440 001002 BNE. 501358 
5386 011442 LEY RECCNIC(RS) := RECCNI(RS) @1 ;DECREMENY RECORD COUN’ 
3887 011442 005365 003324 DEC RECCNTCR 
3888 011446 ENDIF 
3889 011446 : 501358; 
3890 011446 ENDIF 
3891 011446 501348; 
3892 011446 tNDIF 


389% 011446 SOLSSS$; 
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011446 

011446 

011446 

011446 

011446 

011446 

011446 

011446 016577 003324 
011454 

011454 

011454 000207 
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171660 
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C8 


ENDIF 
ENDIF 


ENDIF 


LET @DATAWT ;:* RECCNTC(RS) 


ENDIF 
RTS 


PC 


sRE TURN. 


501308: 
50127$%: 
501258: 


50124$: 


MOV 


SEQ 0093 


RECCNTCR 


011572 


026527 
001003 
000137 


000400 


032737 
001441 


023727 
001405 


105737 


032737 
001003 


012702 
000402 


012702 


000402 


013702 


002532 
011676 


109000 


003376 


003415 
003264 


004000 
040000 


100000 


000005 


003376 


177774 


003402 


000002 


003402 
003402 


002346 


Ds 
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THIS IS THE ERROR CHECK SUBROUTINE, 
SUBROUTINE IS CALLED TO CHECK THE TSO4 STATUS. 
IF SPECIAL COND IS SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 
IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR, 


THEN AN ERROR RFC IS REPORTED, 
OUTPUTS: 

REGISTERS: R2, R4. 

CALLS: TcCo-TCC7. 


IF DEVTBL(RS) EQ NINUSE 


CHKERR;: : THEN 


JMP 18 
ELSE 


ENDIF 
IF @1TS.SC SETIN TSSREG THEN 


IF CTCC NE @2 THEN 
IFB ERRREC EQ @0 THEN 
INC 


ENOIF 
ENOIF 


SCCNTCRS) 


sBTL 


sBTL 
sBTL 


;BTL 


SEQ 0094 
AFTER INTERRUPT THIS 


CMP DEVTBLCR 
BNE 50136$ 
BR 50137$ 
501365: 
50137$: 
:IF SPECIAL COND STATUS IS SET fT 
BIT @TS.SC,T 
BEQ 501408 
3IF TCC IS NOT 2 THEN: 
CMP CTCC,%2 
BEQ 50141$ 
3IF NOT IN ERROR RECOVERY: 
TSTB ERRREC 
50142$ 


sINC SC COUNTER. 


501423: 
501418: 


TF @TS.NXM SETIN TSSREG OR OTS.UPE SETIN TSSREG THEN 


5014338: 


IF @X2.0PM NOTSETIN MSGPKT+MS.XS2 THEN 


LET R2 :- 45 
ELSE 


LET RDP := 04 
ENDIF 
ELSE 


LET R2 3+ CICC 


sSET TCCS INDEX 


0145$:; 


sWHEN NON-EXISTA 


3 
;TAPE MOVED, SET TCC4 INDEX 


501468: 


BIT @TS.NXM, 
BNE 50143$ 
BIT oTS.UPE, 
BEQ 501443 
;AND TAPE NOT MO 
BIT @x2.0PM, 
BNE 50145$ 
MOV @5,Re 
BR 50146$ 
MOV £4,R2 
6R 50147 


501443; 
2SET DETECTED TCC INDEX 


M's Cree Re 
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011576 
011576 
011576 
011600 
011604 
011604 
011606 
011606 
011606 
011614 
011616 
011616 
011622 
011624 
011624 
011630 
011632 
011636 
011640 


011640 
011640 
011644 
011646 
011646 
011652 
011652 
011654 
011656 
011660 
011662 
011662 
011662 
011662 
011662 
011662 
011662 
011662 
011662 
011662 
011662 
011662 
011666 
011670 
011670 
011676 
011676 
011676 
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006302 
004772 


000426 
032737 
001422 


005737 
001417 


105737 
001403 


105737 
001411 


105737 
001006 


105737 
001403 


013737 


000207 


011700 


004000 003346 


002340 


003441 
003442 


003445 


003304 


003413 


003350 002310 
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1$: 


PAGE 97 
SEQ 0095 
ENDIF 
50147$: 
LET R2 := R2 SHIFT 1 ;CURRENT TCC X 2. ~ ne 
L 
mn PC ,ATCCRACR2) :GO TO THE TCC HANDLING SUBROUTINE. 
BR 50150$ 
50140$: 
IF @BRF.C SETIN CMDWRD THEN 3IF BRF IS USED IN THIS CMO THEN: 
BIT @BRF .C.C 
BEQ 50151$ 
IF MSGPKT+MS.RFC NE 8C THEN 3IF THERE IS AN RFC THEN: 
TST MSGPKT+M 
BEQ 50152$ 
IFB RANDOM EQ #0 ORB VF YFLG NE #0 THEN 
TSTB RANDOM 
BEQ 50153$ 
TSsTB VF YFLG 
BEQ 501545 
50153$: 
3IF NOT IN RANDOM OR IF CMD IS WTV: 
IFB IRE EQ 00 THEN :IF RFC ERROR REPORTS ARE ALLOWED: 
TSTB IRE 
BNE 50155$ 
LET HROCNT(RS) := HROCNT(CRS) + @1 ;UPDATE HARD ERROR COUNT 
I HROCNT(R 
ERRHRD 013,RFCERM,STAERM sREPORT RFC ERROR 
TRAP CSERHRD 
~WORD 13 
.WORD RFCERM 
. WORD STAERM 
ENDIF 
50155$: 
ENDIF 
50154$: 
ENDIF 
50152$: 
ENDIF 
SOLS1S$: 


ENDIF 


IFB RWERR NE 90 THEN 


501508: 
;IF A READ/WRITE ERROR HAS OCCURRED THEN 


RWERR 
50156$ 


CmMOsav,.Cc 


TsT6 
BEQ 
LET CMDPKT := CMDSAV sRESTORE CMD PACKET AFTER ERROR RECOV. 
MOV 
ENDIF 
501568: 
RTS PC ;RE TURN, 
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4011 
40le 
4013 
4014 
4015 
4016 
4017 
4018 
4019 


011700 
011702 
011704 
011706 
011710 
011712 
011714 
011716 


MACY1L1L 30( 1046) 


06 -APR-84 08:49 
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; 
TCCRA: 


ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 


G8 
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3 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
4021 3 CONDITION ERROR. 
4022 : INPUTS: 
4023 3 OUTPUTS: 
4024 : REGISTERS: 
roa : CALLS: 
4027 011720 TCCO:: LET HRDCNT(RS) := HROCNT(RS) + #1 ;UPDATE HARD ERROR COUNT. 
4028 011720 005265 003304 INC HROCNTCR 
4029 011724 ERRHRD #5,SCERM,STAERM sREPORT SPECIAL CONDITION ERROR. 
4030 011724 104456 TRAP CSERHRO 
4031 011726 000005 . WORD 5 
4032 011730 004230 . WORD SCERM 
4033 011732 005372 . WORD STAERM 
4034 011734 000207 RTS PC ;RETURN. 
4035 
4036 
4037 
4039 
4 
4040 3 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 
4041 : THIS TCC INDICATES THAT THE ORIVE HAS UNDERGONE A STATUS CHANGE 
4042 F SUCH AS GOING OFFLINE OR COMING ONLINE. 
4043 : INPUTS: 
4044 : OUTPUTS: 
4045 3 REGISTERS: R2,R4 
ona? 3 CALLS: DROPU 
4048 011736 TCC1:: ERRDF &6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
4049 011736 104455 TRAP CSEROF 
4050 011740 000006 ~-WORD 6 
4051 011742 004335 WORD ATTNM 
4052 011744 005372 WORD STAERM 
4053 011746 004737 015554 JSR PC,DROPU ;DROP THE UNIT. 


4054 011752 000207 RTS PC sRETURN,. 


H8 
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CZTSHD.P11  06-APR-84 08:49 GLOBAL SUBROUTINES SECTION SEQ 0098 
4055 : SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 
4056 : A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
405? : TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 
4058 i INPUTS: 
4059 : OUTPUTS: 
4060 , REGISTERS: 
4061 , CALLS: 
4063 011754 TCC2:: IF @xX0.B0T SETIN MSGPKT+MS.xSO ANDB EXPBOT NE #0 THEN 
4064 011754 032737 000002 002342 BIT @x0.8OT, 
4065 011762 001404 BEQ 501578 
4066 011764 105737 003440 TSTB = EXPBOT 
4067 011770 001401 BEQ 501578 
4068 :IF_AT BOT AND BOT IS EXPECTED: 
4069 011772 000433 BR TC2RTN ;RETURN-TCC2 CAUSED BY EXPECTED BOT. 
4970 011774 ENDIF 
4071 011774 501578: 
4072 011774 IF @XO.RLS!XO.RLL!XO. TMK!XO.LET!X0.BOT SETIN MSGPKT+MS.xSO THEN 
4073 011774 032737 170002 002342 BIT @xO.RLS! 
4074 012002 001427 BEQ 501608 
4075 ;IF TCC2 CAUSED BY ANYTHING BUT EOT: 
4076 012004 IFB RANDOM EQ 90 ORB VFYFLG NE 00 THEN 
4077 012004 105737 003441 TSTB = RANDOM 
4078 012010 001403 BEQ 501618 
4079 012012 105737 003442 TSTB VF YFLG 
4080 012016 001421 BEQ 50162$ 
4081 012020 501615: 
4082 ;IF NOT IN RANDOM OR IF CMD IS wTv: 
4083 012020 IFB IRE EQ #0 THEN IF RFC ERROR REPORTS ARE ALLOWED: 
4084 012020 105737 003445 TSTB IRE 
4085 012024 001016 BNE 501638 
4086 012026 IFB ERRREC NE 90 THEN IF WE ARE IN ERROR RECOVERY THE 
4087 012026 105737 003415 TSTB = ERRREC 
4088 012032 001403 BEG 501648 
4089 012034 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE FLAG FOR LO 
4090 012034 105237 003414 INCB __UNREC 
4091 012040 ELSE sELSE - IF NOT IN ERROR RECOVERY 
4092 012040 000402 BR 501658 
4093 012042 501648: 
4094 012042 LET SCCNT(RS) :* SCCNT(RS) + @1 ;INCREMENT THE SPEC COND COUNT 
4095 012042 005265 003264 INC SCCNT(RS 
409% 012046 ENDIF 
4097 012046 501658: 
4098 012046 LET HROCNT(RS) := HRDCNT(RS) + @1  ;UPDATE HARD ERROR COUNT. 
4099 012046 005265 003304 INC HROCNT(R 
4100 012052 ERRHRD #7, TSAM,STAERM - sREPORT TAPE STATUS ALERT. 
4101 012052 104456 TRAP CSERHRD 
4102 012054 000007 .WORD ? 
4103 012056 004436 “WORD = TSAM 
4104 012060 005372 [WORD = STAERM 
4105 012062 ENDIF 
4106 012062 501633: 
4107 012062 ENDIF 
4108 012062 501628: 
4109 012062 ENDIF 


41190 012062 SOLOS: 
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4111 
41le 


012062 


012064 
012064 
012066 
012070 
012072 
012074 
012100 
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000207 


015554 
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TCORTN: 


TCC3:: 


RTS PC 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 


sRETURN. 


RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA. 


INPUTS: 
OUTPUTS: 
REGISTERS: R2,R4 
CALLS: DROPU 


ERRDF 08,FUNRM,STAERM 


JSR PC,OROPU 
RTS PC 


sREPORT FUNCTION eee” 


sDROP THE UNI’. 
sRETURN. 


SEQ 0099 


CSEROF 
8 


FUNPM 
STAERM 


GLOBAL 


AREAS 
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012102 
012102 
012110 
012112 
012116 
012116 
012120 
012120 
012120 
012120 
012120 
012126 
012130 
012134 
012136 
012136 
012142 
912144 
012150 
012152 
012152 
012154 
012156 
012160 
012162 
012162 
012162 
012162 
012166 
012170 
012170 
012174 
012174 
012200 
012200 
012204 


012206 
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026527 
001003 


000137 


000400 


023727 


105737 
001111 


105237 
105237 


105737 
001101 


002532 
012550 


003354 
002206 


003415 
002205 


002211 


003415 
003410 
003407 


O06 -APR-84 08:51 PAGE 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR. 


177774 


000002 


TCC4:: 


J8 


102 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 


THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 
2 WRITE -ERROR-RECOVERY ALGORITHMS CAN BE SELECTED: 


SEG 9100 


THE FIRST ONE, VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE. 


IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 
OR 20 BAD SPOTS HAVE BEEN LOGGED. ON REACHING 20 BAD 
SPOTS LOGGED, A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 
UNIT DROPPED. 

THE SECOND ALGORITHM ISSUES THE TS11 WRITE RETRY COMMAND 
UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 
WITH THE NEXT RECORD ON RECOVERY. 


INPUTS: 
OUTPUTS: 
REGISTERS: R2,R4. 
CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 
IF DEVTBLCRS) EQ @NINUSE THEN sBTL one 
; BNE 
JMP 3$ sBTL 
ELSE ;BTL 
BR 
50166$: 
ENDIF ;BTL 
50167$: 
IF CMOLG EQ #2 ANDB BADTSW NE #0 THEN ow 
BNE 
TSTB 
BEG 
IFB ERRREC EQ #0 ANDB ERCVER NE #0 THEN 
TSTB 
BNE 
TsTB 
BEQ 
ERRSOFT #9,RERM,STAERM : 
TRAP 
.WORD 
.WORD 
.-WORD 
ENDIF 
501718: 
IFB IREC EQ #0 THEN ; 
TsTB 


BNE 

LET ERRREC :B= ERRREC + @1 ;RETRY FLAG FOR EXCUTE on 

LET WRIYER :B= WRIYER + @1 ;REWRITE ERROR FLAG FOR po 

IFB WRIYFG EQ #0 THEN 3FIRST RETRY ON THIS wee | 
S 


o 
@ 


DEVTBLC(R 
50166$ 


50167$ 


CMOLG, #2 
50170$ 
BADTSW 
501708 


ERRREC 
50171$ 
ERCVER 
50171$ 
CSERSOFT 
9 


RERM 
STAERM 


IREC 
SO1L72$ 


WRTYER 


SUBSEQUENT 


WRIYFG 
50173$ 


BNE 
sRETRIES WITH TCC4 ERRORS BY-PASS THIS S 


LET WIYWRD := CMDWRD sSAVE WRITE COMMAND PACKE! 


GLOBAL. 


AREAS 
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4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
42lo 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 


012206 
012214 
012214 
012222 
012222 
012230 
012230 
012234 
012234 
012240 
012240 
012240 
012240 
012244 
012244 
012250 
012250 
012254 
012260 
012260 
012266 
012270 
012274 
012274 
012276 
012276 
012276 
012276 
012276 
012302 
012304 
012312 
012314 


012314 
012314 
012322 
012324 
012324 
012330 
012334 


012376 
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013737 
013737 
013737 
105237 
105227 


005265 
005037 


105037 
004737 


026527 
001003 
000137 


000400 


105737 


103752 


027727 
103423 


012746 


012775 


105037 


003346 
002310 
002316 
003413 
003407 


003244 
003404 


003406 
013044 


002532 
012550 


003410 
171126 


171116 


013457 
000001 


000004 
013576 


003324 
015554 


003324 
002330 


003407 


IK 
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013366 
013364 
013370 


177774 


000050 


000050 


002452 


GLOBAL SUBROUTINES SECTION 


LET WTYCMD 


:=* CMDPKT 


MOV 
MOV 


ET WIYBRF := CMDPKT+CP.CNT ; 


MOV 

LET RWERR :B= RWERR + #1 ;LOG SUBR FLAG: COUNT WRT ERRORS 
NC 

LET WRIYFG :B= WRIYFG + #1 


INCB 
sRETRY IN PROGRESS FLAG 
INCB 


SEQ 0101 


CMOWRD , W 
CMOPKT , i 
CMDPKT +C 
RWERR 
WRIYFG 


WRTYCTCR 
RECORD 
RETRYC 


RPTCNT 


DEVTBLC(R 
50175$ 


50176$ 


ON SAME 
WRTYER 
50177$ 
QBTPT, #4 


REPEAT 
50174$: 
LET WRTIYCTCRS) := WRTIYCTCRS) + #1 3; COUNT _——* WRITE RETR 
I 
LET RETRYC := #0 ;CLEAR # OF RETRIES PER 
CLR 
LET RPTCNT :B= #0 ;CLEAR # OF saat t 
LRB 
JSR PC,WRTY ;CALL WRITE RETRY 
IF DEVTBL(RS) EQ @NINUSE THEN ;BTL 
CMP 
BNE 
JMP 3$ ;BTL 
ELSE 3BTL 
BR 
50175$: 
ENDIF ;BTL 
50176$: 
UNTILB WRIYER EQ #0 OR @BIPT HIS #40. ;REPEAT > J 
sTs 
BEQ 
CMP 
BLO 


IF @BTPT HIS #40. 


PRINTB #BTMSG2 


JSR PC,BORERS 
LET RECCNTCRS) 


JSR PC,DROPU 
LET RECCNTC(RS) 


LET @TSDBCRS) 
ENDIF 
LET WRIYFG :B=- 


THEN 


:= RECCNTCRS) 


#0 
:2 #RWCPK 


#0 
LET MISCFG :B= MISCFG + #1 


50177$: 
sUNTIL RECOVERED OR 
sWHEN 20 BAD SPOTS LOGGED 


BLO 
sPRINT BAD TAPE OVERFLOW MSG 
v 


MO 
MOV 
MOV 
TRAP 
; ADD 
sERASE BAD RECORD 
- 1 Hy 
DEC 
sDROP UNIT 
3 
CLR 
sREWIND UNIT 
MOV 
502008; 


sRETRY COMPLETE FLAG 
RB 


50174$ 


20 BAD SPOTS 


RECCNTCR 


RECCNT(R 
RWC . a 


WRIYFG 


Ci. 
300 NCT HALT ON THIS CMD Fis 
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4244 
4245 
4246 
4247 


012376 
012402 
012402 
012410 
012410 
012410 
012410 
012412 
012412 
012412 
012416 
012416 
012416 
012416 
012420 
012420 
012424 
012424 
012432 
012434 
012434 
012440 
012442 
012442 
012446 
012450 
012450 


012530 
012532 
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105237 
013737 


000402 


105237 


000454 
004737 


023727 
003411 


012702 
006202 


023702 
002403 


052737 


005237 
052737 


105737 
001011 


105237 
012602 


012602 
004737 


003455 
013366 


003414 


012716 
003354 


000020 


003404 


020000 


003404 
002205 


003404 
001000 
002211 


003415 


010326 


06 APR 84 08:51 


003352 


000002 


002310 


002310 


L& 


LET CMDPKT := CMDPKT SET.BY #MOD.C1L 


IFB IREC EQ #0 THEN 


LET ERRREC :B= ERRREC + #1 
POP R2,R2 


JSR PC,EXCUTE 


PAGE 104 
GLOBAL SUBROUTINES SECTION SEQ 0102 
INCB MISCFG 
LET PCMDWD := WTYWRD sRESTORE ORIGINAL WRT CMD AFTER RECOVERY 
MOV WTYWRD,P 
ENDIF 
50173%: 
ELSE 
BR 50201$ 
50172$: 
LET UNREC :B= UNREC + #1 3 
INCB UNREC 
ENDIF 
50201$: 
ELSE 
BR 50202$ 
50170$ 
JSR PC,RTLE ;CHECK FOR oo _— "EXCEEDED. 
IF CMDLG GT #2 THEN ;IF READ CMD T 
CMP CMOLG, #2 
BLE 50203$ 
LET R2 := @RRECL SHIFT -1 sR2=READ RETRY COUNT LIMIT / 2 
MOV @RRECL .R 
ASR Re 
IF RETRYC GE R2 THEN ;IF RETRY COUNT IS MORE THAN HAL 
CMP RETRYC,R 
BLT 50204$ 
LET CMDPKT := CMDPKT SET.By #OPP.C ;SET OPPOSITE BIT FOR RE 
BIS #0OPP .C.C 
ENDIF 
50204$: 
ENDIF 
50203$ 
IF RETRYC EQ #0 ANDB ERCVER NE #0 THEN ;IF THIS IS THE ORIGINAL ERROR 
Y 
BNE 50205$ 
TSTB ERCVER 
BEQ 50205$ 
ERRSOFT #9,RERM,STAERM sREPORT RECOVERABLE ERROR 
TRAP CSERSOFT 
-WORDB 9 
«WORD RERM 
-WORD  STAERM 
ENDIF sPROVIDED teat oo 4 ENABLED THE REPOR 
LET RETRYC := RETRYC + #1 sUPDATE RETRY COUNT. 


INC RETRYC 
;SET RETRY BIT a PACKET. 


8 #mMoD.C1. 
;IF ERROR RECOVERY eee 3 


TREC 
BNE 50206 $ 
;SET ERROR RECOVERY FLAG. 
I ERRREC 
sPOP 2 RTN ADRS FROM STACK, 
MOV (SP )+ Ro 


MOV (SP)-, wRO 
3GO EXECUTE THE RETRY COMMAND. 


AL AREAS MACY11 30( 1046) 
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012536 000137 
2542 

012542 000402 


4 
St eeen 105237 


50 
012550 000207 


08:49 
010636 


003414 
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3$: 


JMP GOWAIT 
ELSE 


LET UNREC :B= UNREC + #1 
ENDIF 
ENDIF 
RTS PC 


SEQ 0103 
3GO WAIT FOR INTERRUPT + CHECK STATUS. 
sELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50207$ 


502065: 
;SET UNRECOVERABLE ERROR FLAG. 
INCB UNREC 


50207$: 


502025: 
;RETURN 


GLOBAL AREAS 
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4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 


012552 
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005237 


105737 
001016 


105237 
005265 
016577 
012602 
012602 
004737 
000137 


000402 


105237 


000207 


012716 
003404 


003404 
002211 


003415 
003324 
003324 


010326 
010636 


003414 


N8 
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170510 


TCCS:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
TAPE POSITION HAS NOT CHANGED. > ty PROCEDURE IS TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND 


INPUTS: 
OUTPUTS: 
REGISTERS: R2,R4. 
CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 
JSR PC,RTLE ;CHECK FOR RETRY LIMIT EXCEEDED 
IF RETRYC EQ #0 THEN ;IF THIS IS THE ORIGINAL ERROR THEN: 
TST RETRYC 
BNE 50210$ 
ERRSOFT #10,RERM,STAERM sREPORT RECOVERABLE ERROR. 
TRAP CSERSOFT 
. WORD 10 
.WORD RERM 
: WORD STAERM 
ENDIF 
50210$: | 
LET RETRYC := RETRYC + #1 ;UPDATE RETRY COUNTER. 
INC RETRYC 
IFB IREC EQ #0 THEN ;IF ERROR RECOVERY IS ENABLED: 
TSTB IREC 
BNE 50211$ 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY “re, enenes 
LET RECCNTCRS) := RECCNTCRS) + #1 sUPDATE REC COUNT 
INC RECCNTC(R 
LET ADATAWT := RECCNTCRS) sAND INSERT IT INTO WRT BFR 
MOV RECCNTCR 
POP R2,R2 s;POP 2 RTN ADRS FROM STACK. 
MOV (SP)+,R2 
MOV (SP)+,R2 
JSR PC,EXCUTE :;GO RE-ISSUE THE COMMAND. 
JMP GOWAIT ;GO WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE ;ELSE IF ERROR RECOVERY IS NOT ENABLED: 
BR $0212$ 
50211$: 
LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
INCB UNREC 
ENDIF 
502128: 
RTS PC sRETURN. 


EAS 


a 


012672 
012676 


MACY 11 was tee? 
06 -A 


APR -84 08:4 


012775 
004737 


002330 002452 


011170 


015554 


Of APR 84 08:51 P 
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TCC6:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 


TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
DROPPED FROM THE TEST SEQUENCE. 

INPUTS: 

O.'TPUTS: 

REGISTERS: R2, R4 

CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DOROPU 


LET @TSDBCRS) :+ ORWCPK sISSUE A REWIND COMMAND, 


v 
JSR PC,WSSR sWAIT FOR SUBSYSTEM READY, 
ERRDF 011,URERM,STAERM sREPORT UNRECOVERABLE ERROR. 


SEQ «105 


oRWCPK a 


TRAP CSEROF 
11 
«WORD URERM 


. WORD 
JSR PC,DROPU sREPORT- ERROR + DROP UNIT. 
RTS PC sRETURN 


STAERM 


GLOBAL 


AREAS 


ZTSHD P11 


48°? 
4378 


Ole? 

012700 
012702 
012704 
012706 
012710 
012714 


012716 
012716 
012722 
012724 
012724 
012726 
012730 
012732 
012734 
012740 
012740 
012742 
012744 
012744 
012744 
012744 
012750 
012750 
012756 
012760 
012760 
012766 
012770 
012770 
012774 
012774 
012776 
013000 
013002 
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104455 
000014 
004373 
005372 
004737 
000207 


105237 


023727 
001016 


023727 
001011 


105237 


104455 
000016 
004310 
005372 


015554 


003354 


015554 


003415 
003354 


003404 


003414 
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AL 


000002 


000020 


TCC7:: 


RTLE:: 


Ss 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 
ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 
COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
REFER *O THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR, 


INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: 

ERRDF @12,F ATSM,STAERM sREPORT FATAL SUBSYSTEM ERROR. 
TRAP 
. WORD 
. WORD 
WORD 

JSR PC,DROPU ;DROP THE UNIT. 

RTS PC sRETURN, 


SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED. PRINTS ERROR MESS 
—_ AND DROP UNIT UNLESS COMMAND IS A READ. 
UTS: 


OUTPUTS: 
REGISTERS: R2, RA, 
CALLS: DROPL 
IF CMDLG EQ 00 THEN :IF CMD IS NOT A READ OR WRITE t 
BNE 
ERRDF 011,URERM,STAERM :REPORT UNRECOVERABLE ERROR. 
WORD 
“WORD 
“WORD 
JSR PC,DROPU ;DROP THE UNIT. 
POP R2 
MOV 
BR RTLRIN :AND RETURN, 
ENDIF 
502138: 
LET RWERR :B= RWERR + o1 :SET READ/WRITE ERROR FLAG. 
IF CMOLG EQ 02 THEN sIF CMO IS @ wRT OR ulm: 
BNE 
IF RETRYC EQ OWRECL THEN ;IF RETRY COUNT HAS REACHED LIME 
BNE 
LET UNREC :B= UNREC + OL 3SET UNRECOVERABLE FLAG ri 
ERRDF 014,RLEXM,STAERM sREPORT RETRY LIMIT iat 3 
. WORD 
~WORD 


~ WORD 


SEQ 91046 


CSERDF 
le 
FATSM 
STAERM 


AGE 


HEN: 


URERM 
STAERM 


(SP )+,R2 


RWERR 


CMOLG, #2 
S0214$ 
RETRYC,2 
50215$ 


UNRE © 


CSsERDF 
14 
RLEX\M 
STAERM 


D9 
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4433 013004 004737 015554 JSR PC,DROPU sOROP THE UNIT. 
4434 013010 POP R? 

4435 015010 012602 MOV (SP )+,R2 
4436 013012 ENDIF 

4437 013012 502158; 

4438 013012 ELSE sELSE - CMD IS A READ: 

4439 013012 000413 BR 50216$ 
4440 013014 50214$: 

4441 013014 IF RETRYC EQ ORRECL THEN sIF RETRY COUNT HAS REACHED LIMIT: 
4442 013014 023727 003404 000020 CMP RETRYC,# 
4443 013022 001007 BNE 50217 
4444 013024 LET UNREC :8+= UNREC + @1 sSET UNRECOVERABLE FLAG 

4445 013024 105237 003414 INCB UNRE C 
4446 013030 ERRHRD 014,RLEXM,STAERM sREPORi RECOVERABLE ERROR. 
4447 013030 104456 TRAP CSERHRD 
4348 013032 000016 . WORD 14 

4449 013034 004310 «WORD RLEXM 
4450 013036 005372 «WORD STAERM 
4451 013040 POP R2 

4452 013040 012602 MOV (SP )+,Re 
4453 013042 ENDIF 

4454 013042 502178: 

4455 013042 ENDIF 

4456 013042 502168: 

4457 013042 000207 RTLRTN: RTS PC sRE TURN 


GLOBAL AREAS 
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4458 
4459 
4400 
4461 
4402 
4463 
4464 
4465 
4466 
4467 
4468 
4369 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
44/7 
4478 
4479 
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105237 


123727 
001403 
105737 
001752 


005237 


002532 
013362 


013576 


003410 
013752 


002532 
013362 


003406 
003406 
003410 


003404 
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177774 


177774 


ae 


PAGE 110 


GLOBAL SUBROUTINES SECTION 


WRTY:: 


SEQ 0108 
SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 
REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 
IF ALL 4 REPEATS GOOD, RECORD IS RECOVERED 
AND A RECOVERABLE WRITE ERROR IS LOGGED. 
IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 
BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 
IF RECORD NOT GOOD AFTER 4 RETRIES, ERASE IT, EXIT WITH 
ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 
THIS ALL SCHEME IS REENTERED 20 TIMES MAx, IE 20 BAD 
SPOTS MAX ARE ALLOWED. 
INPUTS: 
OUTPUTS: 
REGISTERS: R3,R4 
CALLS: ; BORERS, REWRT 
IF DEVTBL(RS) EQ ONINUSE THEN sBTL 
CMP DEVTBL(R 
BNE 50220 
JMP 1$ 3;BTL 
ELSE sBTL 
BR 50221$ 
502208: 
ENDIF sBTL 
502218: 
BEGIN RETRY 
REPEAT 
502235: 
BEGIN REPEAT 
REPEAT 
502258: 
JSR PC,BORERS sBACKSPACE/ERASE ONE RECORD 
LET WRIVYER :B= 00 ;CLEAR WRITE RETRY ERROR 
CLRB WRTYER 
JSR PC,REWRT sREWRITE RECORD ON SAME SPOT 
IF DEVTBL(RS) EQ @NINUSE THEN ;BTL 
CMP DEVTBLC(R 
BNE 50226$ 
JMP 1$ ;BTL 
ELSE 7BIL 
BR 50227$ 
502268: 
ENDIF 3BTL 
502278: 
LET RPTCN! :B= RPTCNT «+ @1 :COUNT REPEATS 
INCB RPTCNT 
UNTILB RPTCNT EQ #4 ORB WRTYER NE #0 sLIMIT: 4 REPEATS OR REC 
CMPB RPTCNT .# 
BEG 50230$ 
TSTB WRTYER 
BEQ 50225 
502308: 
END REPEAT : 
502243; 
LET RETRYC := RETRYC «+ #1 ;COUNT RETRIES 


INC 


RETRYC 


GLOBAL AREAS 
CZTSHD.P11 


013142 
013142 
013150 


ry 
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026527 
001003 
000137 


000400 


105737 
001001 


000457 


105737 
001415 
005046 
153716 
013746 
012746 
012746 
010600 
104414 
062706 


023727 
001021 


016537 


017704 
062704 


010477 


020427 
101005 


013703 
060304 
016514 


105237 
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002532 
013362 


003410 


003324 


003451 
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SEQ 0109 
IF DEVTBL(RS) EQ #NINUSE THEN ;BTL 
177774 CMP DEVTBLCR 
BNE 50231$ 
JMP 1$ 3;BTL 
ELSE ;BTL 
BR 50232$ 
50231%: 
ENDIF ;BTL 
502323: 
IFB WRTYER EQ #0 THEN : 
TSsTB WRTYER 
BNE 502335 
LEAVE RETRY sEXIT RETRY LOOP IF RECOVERED 
BR 50222 
ELSE 3 
50233$: 
IFB ERCVER NE #0 THEN : 
TsTs ERCVER 
BEQ 50235$ 
PRINTB #BTMSG1,RETRYC,<B8,RPTCNT> sPRINT SUSPECTED BAD SPO 
CLR -(SP) 
BISB RPTCNT,.C 
MOV RETRYC,- 
MOV @BTMSG1. 
MOV #3, -(SP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD #10,SP 
ENDIF 
50235$: 
IF RETRYC EQ #1 THEN ;ON FIRST RETRY, LOGG BAD SPOT 
000001 CMP RETRYC.¢ 
BNE 50236$ 
LET BIPT := BIADDRCRS) ;BTPT IS BOTH THE BAD SPOT COUNT 
003436 MOV BTADDRC(R 
LET R4 := ABIPT + #2 sAND THE LOGGING INDEX 
MOV @BIPT,R4 
ADD #2,R4 
LET @BTPT := RG 7 
MOV R4.aB TPT 
IF R4 LOS #40. THEN : 
CMP R4, 240. 
BHI 50237$ 
LET R3 := BIPT ;STORE FIRST 20 BAD TS 
MCV BIPT,R3 
LET R4 := RA + RS : 
ADD R3,R4 
LET (R4) ;= RECCNT(RS) 3 
MOV RECCNT(R 
ENDIF 
502378: 
ENDIF 
502368: 
LET ERSFLG :B= ERSFLG «+ @1 ;ERASE FLAG TO ERASE BAD RECORD 
INCB ERSFLG 
LET RWERR :B= #0 sCANCELL “LOG” ERROR FLAG ON FAT 


AREAS 
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013306 
013312 
013312 
013316 
013316 
013316 
013316 
013324 
013326 
013326 
013326 
013326 
013332 
013334 
013334 
013340 
013342 
013342 
013346 
013352 
013354 
013356 
013362 
013362 
013362 
013362 
013362 


105037 
105037 


023727 
001256 


105737 
001413 


105737 
001410 


012746 
012746 
010600 
104414 
062706 


000207 


003413 
003406 


003404 
003410 
002205 
013527 
000001 


000004 
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18: 


LET RPTCNT :B= #0 
ENOIF 
UNTIL RETRYC EQ 04 


END RETRY 
IFB WRIYER NE #0 THEN 


IFB ERCVER NE #0 THEN 


PRINTB #BTMSG3 


ENDIF 
ENDIF 
RTS PC 


CLRB 
sCLEAR REPEAT COUNT FOR 
CLRB 


502345: 
sLIMIT: 4 — 
BNE 
502225: 


TST8 
BEQ 


TSsTB 
BEQ 
sPRINT RETRY FAILED 


502418: 
502408: 


SEQ 0110 


RWERR 
NEXT RET 
RPTCNT 


RETRYC,# 
50223$ 


WRTYER 
50240$ 


ERCVER 
50241$ 


013370 


013372 


013572 
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022441 
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WTYCMD: .WORD 
WTyWRD: .WORD 
WTYBRF: .WORD 


BIMSG1: .ASCIZ 


BIMSG2: .ASCIZ 


BIMSG3: .ASCIZ 


-EVEN 


H9 


ie) sSTORAGE FOR WRITE CMD WHILE RETRYING 
.¢) sSTORAGE FOR WRITE CMD WURD WHILE RETRrING 
te) sSTORAGE FOR WRITE BPCR WHILE RETRYING 


/@ASUSPECT BAD SPOT AFTER DISA RETRY, SDI1SA REPEATSN/ 


/@NSABAD TAPE OVERFLOW: CHANGE TAPE !sNsN/ 


/@ARETRY FAILED ON BAD SPOT... ERASED! SN/ 


SEG O111 


GLOBAL 


AREAS 
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4631 
4632 
4633 
4634 
4635 


4636 


4637 
“4638 
4639 
4040 


013576 


013752 
013752 
013760 
013762 
013766 
013766 
013770 
013770 
013770 
013770 
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013737 
012737 


013737 
042737 


013737 
012737 
005037 
004737 
004737 
004737 
004737 


105737 
001426 


013737 
012737 
013737 
013737 
004737 
004737 
004737 
004737 


105037 


000207 


002532 
014100 
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PA 
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GE 114 
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SUBR TO BACSPACE ONE RECORD 


IF THE ERASE FLAG IS SET, 


THEN ERASE THAT RECORD 


3 
3 
3 TNPUTS: ERSFLG 1 = DO ERASE 
Fy OUTPUTS: 
: REGISTERS: 
F CALLS: EXCUTE, GOWAIT, CKHAE 
BORERS:: LET PCMDWD := CMOWRD 3SET COMMAND TO SPACE REV 
003352 MOV 
LET CMDWRD := #SRR : 
003346 MOV 
LET CMDPKT := CMDWRD CLR.BY #BRF.C 3 
002310 MOV 
002310 BIC 
LET CMDSAV := CMDPKT 5 
003350 MOV 
LET CMDPKT+CP.ADL := #1 ; 
002312 MOV 
LET CMOLG := #0 Fy 
CLR 
JSR PC,CMDAC 3 
JSR PC, ,EXCUTE : 
JSR PC,GOWAIT 8 
JSR PC, CKHAE : 
IFB ERSFLG NE #0 THEN sWHEN ERASE FLAG IS SET, DO sata SO 
BEQ 
LET PCMOWD := CMDWRD ; 
003352 MOV 
LET CMOWRD := @#ERS : 
003346 MOV 
LET CMDPKT := CMDWRD  ; 
002310 MOV 
LET CMDSAV := CMDPKT ; 
003350 MOV 
JSR PC.CMDAC PF 
JSR PC, ,EXCUTE 
JSR PC,GOWAIT 
JSR PC,CKHAE 
LET ERSFLG :B= #0 
CLRB 
ENDIF 
502423: 
RTS PC 
3 SUBR TO REWRITE A BADLY WRITTEN RECORD 
REWRT: IF DEVIBLCRS) EQ ONINUSE THEN 3BTL 
177774 CMP 
BNE 
JMP 1$ s6TL 
ELSE 3BTL 
BR 
502488; 
ENDIF 3;BTL 


LET PCMDWD := CMDWRD 


502448; 
sRESTORE WRITE COMMAND PACKET 


SEQ O1i2 


CMDWRD ,P 
#SRR,CMD 


CMDWRD .C 
#BRF .C.C 


CMOPKT,C 
#1, CMDPK 
CMOLG 


ERSFLG 
S50242$s 


CMOWRD ,P 
#ERS CMD 
CMDWRD.C 
CMDPKT Cc 


ERSFLG 


DEVTBLYLR 
50243$ 


502345 


GLOBAL 
CZ2TSHD 


4687 
4688 
4689 
4690 
4691 
4692 
4693 
4094 


ARE AS 
Pll 


01377 

013776 
013776 
014004 
014004 
014012 
014012 
014020 
014020 
014026 
014026 
014034 
014034 
014042 
014046 
014052 
014052 
014060 
014062 
014066 
014066 
014070 
014070 
014070 
014070 
014074 
014100 
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013737 
013737 
013737 
013737 
013737 
013737 
012737 
004737 
004737 
026527 
001003 
000137 


000400 


004737 
004737 
000207 


003346 
013366 
013364 
002310 
003334 
013370 
sores 
010326 
002532 
014100 


010636 
016060 
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003352 
003346 
002310 
003350 
002312 
002316 
003354 


177774 


1$; 


PAGE 


JI 


LET CMDWRD := WTYWRD : 
LET CMOPKT := wIyCMD $ 
LET CMDSAV := CMDPKT ; 
LET CMDPKT+CP.ADL := DATAWT 
LET CMDPKT+CP.CNT := WTYB8RF 
LET CMDLG := #2 

JSR PC,CMDAC 


JSR PC, EXCUTE 
IF DEVTBL(RS) EQ @NINUSE THEN 


JMP 1$ 
ELSE 


ENDIF 
JSR PC,GOWAIT 


JSR PC, CKHAE 
RTS PC 


sRE -WRITE RECORD 
sBIL 


sBTL 
7BTL 


3sBTL 


CMP 
BNE 


BR 
50245: 


50246: 


SEG 0113 
CMOWRD ,P 
Wr rwRO,C 
WTYCMD,C 
CMDPKT ,C 
DATAWT.C 
WTYBRF .C 
#2,CMDLG 


DEVTBLCR 
50245$ 


50246$ 


K9 
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av14 : SUBROUTINE TO LOG BYTES READ/WRITTEN. 

4715 ; ALSO UPDATES READ/WRITE ERROR COUNTERS. 

471s H INPUTS: 

4717 ; OUTPUTS: 

4718 : REGISTERS: R2, R3, RA. 

7° : CALLS: 

4720 

4721 014102 LOG:: IFB ERLOG EQ #0 THEN ;IF DATA AND ERRORS HAVE NOT BEEN LOGGED 
4722 014102 105737 003412 TSTB = ERLOG 
4723 014106 001126 BNE 50247 
4724 014110 LET ERLOG :B= ERLOG + 1 3SET LOG DONE FLAG. 

4725 014110 105237 003412 INCB_ ERLOG 
4726 014114 LET R4 := CMDLG ;GET CURRENT CMD LOGGING CODE. 

4727 014114 013704 003354 MOV CMOLG,R4 
4728 014120 IF R4 NE #0 THEN ;IF THERE IS A CODE THEN: 

4729 014120 005704 TST R4 

4730 014122 001520 BEQ 502508 
4731 014124 LET R4 := RA - 02 sADJUST THE CODE FOR TABLE INDEX. 

4732 014124 162704 000002 SUB #2,R4 
4733 014130 LET R2 := RS + BINC(R4) + #CNTBGN ;R2 = ADR OF BYTE COUNT LSW. 

4734 014130 010502 MOV RS.R2 
4735 014132 066402 014366 ADD BINC(R4) 
4736 014136 062702 002554 ADD @CNTBGN, 
4737 014142 LET (R2) := (R2) + BRFCNT ;ADD BRF TO LSw. 

4738 014142 063712 003344 ADO BRF CNT .¢ 
4739 014146 IF MSGPKT+MS.RFC LOS BRFCNT THEN ;IF THE RFC IS LOWER OR THE SAME AS 
4740 014146 023737 002340 003344 CMP MSGPKT + 
4741 014154 101002 BHI 50251$ 
4742 014156 LET (R2) := (R2) - MSGPKT+MS.RFC ;SUBTRACT RFC FROM EXPECTED BRF. 
4743 014156 163712 002340 SUB MSGPKT + 
4744 014162 ENDIF 

4745 014162 502515: 

4746 014162 LET R3 := R2 + #10 3R3 = ADR OF 2ND WORD. 

4747 014162 010203 MOV R2,R3 
4748 014164 062703 000010 ADD #10,R3 
4749 014170 WHILE (R2) GT #999. DO 

4750 014170 50252: 

4751 014170 021227 001747 CMP (R2), #99 
4752 014174 003404 BLE 50253$ 
4753 014176 LET (R2) := (R2) - #1000. ;UPDATE BYTE COUNT 

4754 014176 162712 001750 suB #1000. .( 
4755 014202 LET (R3) := (R3) + #1 32ND WORD. 

4756 014202 005213 INC (R3) 
4757 014204 ENDDO 

4758 014204 000771 eR 50252$ 
4759 014206 502535: 

4760 014206 LET R2 := R3 + #10 3R2 = ADR OF 3RD WORD. 

4761 014206 010302 MOV R3,R2 
4762 014210 062702 000010 ADD #10,R2 
4763 014214 WHILE (R3) GT #999, DO 

4764 014214 502548: 

4765 014214 021327 001747 cMP (R3), 99 
4766 014220 003404 BLE 50255$ 
4767 014222 LET (R3) := (R3) - #1000, ;UPDATE BYTE COUNT 

4768 014222 162713 001750 SUB #1000. .¢ 


4769 014226 LET (R2) := (R2) + #1 33RD WORD. 


GLOBAL AREAS 
CZTSHD.P1i1 


4770 
4771 


014226 
014230 
014230 
014232 
014232 
014232 
014234 
014240 
014240 
014240 
014244 
014246 
014246 
014252 
014252 
014254 
014254 
014256 
014256 
014256 
014262 
014264 
014264 
014266 
014272 
014276 
014276 
014302 
014304 
014304 
014310 
014310 
014312 
014312 
014314 
014314 
014314 
014316 
014316 
014322 
014324 
014324 
014330 
014332 
014336 
014340 
014340 
014344 
014350 
014354 
014356 
014360 
014364 
014364 
014364 
014364 
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005212 
000771 


010203 
062703 


162712 
005213 
000771 


105737 
001440 


105737 
001404 


062702 
005212 
000424 


005212 


105737 
001020 


105737 
001015 
105737 
001412 


013746 


000010 


001747 


001750 


003413 


014374 
002714 
003414 


000010 


002211 


003446 
002205 


003404 
005073 
000002 


000006 
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2 
? 
SECTION 
ENDDO 
LET R3 :* R2 + 010 


WHILE (R2) GT #999. DO 


LET (R2) := (R2) - #1000. 
LET (R3) := (R3) + #1 
ENDDO 


IFB RWERR NE @O THEN 


LET R2 := RS + EINC(RS) + #WRREC 


IFB UNREC NE #0 THEN 


LET R2 := R2 + #10 
LET (R2) := (R22) + #1 
ELSE 


LET (R2) := (R2) + #1 
IFB IREC EQ #0 THEN 


PRINTB #NURTY1,RETRYC 


ENDIF 


SEQ 0115 
INC (R2) 
BR 50254$ 
502555: 
:R3 = ADR OF 4TH WORD. 
MOV R2,R3 
ADO #10,R3 
502565: 
CMP C(R2),#99 
BLE 50257$ 
sUPDATE BYTE ZOUNT 
SUB #1000. .¢ 
;4TH WORD. 
INC (R3) 
BR 502565 
50257$: 
;IF R/W ERROR, UPDATE ERROR COUNT. 
TSTB RWERR 
BEQ 50260$ 
:R2 = ADR OF COUNTER. 
MOV RS,R2 
ADD EINC(R4) 
ADD @WRREC ,R 
;IS THE ERROR UNRECOVERABLE? 
TsTs UNREC 
BEQ 50261$ 
sYES, POINT TO NEXT COUNTER. 
ADD #10,Re2 
sUPDATE THE ERROR COUNTER 
INC (R2) 
sELSE - IF ERROR IS RECOVERABLE: 
BR 5026e$ 
50261$: 
sUPDATE THE ERROR COUNTER 
INC CR2> 
;IF ERPOR RECOVERY IS ENABLED: 
TSTB IREC 
BNE 50263$ 
IFB DROPED FQ #0 ANDB ERCVER NE #0 THEN ; IF UNIT HAS NOT BEEN DR 
TSTB DROPED 
BNE 50264$ 
TST8 ERCVER 
BEG 50264$ 
;PRINT # OF RETRIES TO RECOVER 
MOV @NURTY1, 
MOV #2, -(SP) 
MOV SP ,RO 
TRAP CS$PNTB 
ADD #6,SP 
sPROVIDED PRINT HAS BEEN ENABLED 
502648; 


ENDIF 


2e3s: 


GLOBAL AREAS 
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4826 
4827 
4828 


014364 
014364 
014364 
014364 
014364 
014364 
014364 
014364 
014364 


014366 
014370 
014372 


014374 
014376 
014400 
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000207 
000000 
000040 
000100 


000000 
000020 
000040 


M9 
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3 
BINC: 


3 
EINC: 


ENDIF 

ENDIF 
ENDIF 
ENDIF 
RTS PC 
INDEXES TO BYTE COUNTERS. 
0 s;WRITE. 
40 sREAD REV. 
100 sREAD FwD. 
INDEXES TO READ/WRITE ERROR COUNTERS. 
.¢) sWRITE. 
20 sREAD REV. 
40 sREAD FwD. 


SEQ 0116 


50262$: 
50260$: 
50250$; 
50247$: 


GLOBAL AREAS 
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4845 
4846 


014402 
014402 
014406 
014410 
014410 
014416 
014416 
014424 
014424 
014432 
014436 
014436 
014444 
014446 
014452 
014452 
014454 
014454 
014454 
014454 
014454 
014462 
014462 
014470 
014470 
014476 
014502 
014502 
014502 
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105737 
001435 


013737 
012737 


012737 
004737 


026527 


013737 
012737 
012737 
004737 


000207 


003442 


003346 
104401 


000004 
014504 


002532 
014502 


003346 
104001 


000006 
014504 
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003352 
003346 
003354 


177774 


003352 
003346 
003354 


08:51 PAGE 


VF YDAT:: 


1$: 


N9 


IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 
TRANSFERRED TO THIS SUGROUTINE TO READ REVERSE, CHECK DATA, 
READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 


INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: VFEXC. 
IFB VFYFLG NE #0 THEN 


LET PCMOWD 
LET CMDWRD 
LET CMDLG 


JSR PC,VFEXC 
IF DEVTBLCRS) EQ #NINUSE THEN 


:= CMDWRD 
:= #ROR 
:= 44 


ag 

ENDIF 

LET PCMDWD := CMDWRD 
LET CMOWRD := #ROF 
LET CMDLG := #6 

JSR PC,VFEXC 


ENDIF 


RTS 


PC ;RETURN,. 


;IF DATA IS TO BE VERIFIED: 
TSTB 
BEQ 


;SAVE THE PREVIOUS mee WORD . 
V 


sCOMMAND IS READ REV. no 
V 
;SET UP CMD LOGGING INDEX. 


MOV 
5: READ ALL THE RECORDS REV. 
;BTL 


cMP 
BNE 
;BTL 
;BIL 
BR 
50266$: 
;BIL 


50267$: 
;SAVE THE PREVIOUS oe WORD 
Vv 


sCOMMAND IS READ FWO. 

3SET UP CMD LOGGING INDEX. 

3GO READ ALL RECORDS FwOd. : 
502658: 


SEQ 0117 


VF YFLG 
Su265$ 


CMDWRD ,P 
#ROR , CMD 
#4,CMDLG 


DEVTBLCR 
50266$ 


50267$ 


CMDWRD .P 
#ROF ,CMO 
#6 ,.CMDLG 


B10 
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48838 ‘ SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 
4884 ’ INPUTS: : 
4685 ‘ OUTPUTS: 
4880 H REGISTERS: R2 
rood ' CALLS: CMDAC, FIRSTU, VFISU, NEXTU, CKHAE. 
4889 014504 VFEXC:: LET CMDPKT := CMDOWRD CLR.Br OBRF.C ;COMMAND PACKET = READ REV OR FwOD. 
4890 014504 013737 003346 002310 MOV CMOWRE .C 
4691 014512 042737 004000 002310 BIC OBRF .C.C 
4892 014520 IFB SWBFLG NE #0 THEN sIF BrTES ARE TO BE SWAPPED: 
4893 014520 105737 003444 1ST8 SWBFLG 
4894 014524 001403 BEQ 50270$ 
4895 014526 LET CMOPKT ;:* CMDPKT SET.B1 OSWB.C ;SET SWAB BIT IN CMD PACKET. 
489% 014526 052737 010000 002310 BIS @SwB.C,C 
4897 014534 ENDIF 
4898 014534 502708: 
4899 014534 LET CMDSAV :* CMOPKT sSAVE COMMAND PACKET 1ST WORD. 
4900 014534 013737 002310 003350 MOV CmMoPr rc 
4901 014542 013737 003336 002312 MOV DATARD,.CMDPKT +CP. ADL sSAVE BUFFER START ADDRESS. 
4902 014550 LET NCNT :* 00 sCLEAR NUMBER OF OPERATIONS. 
4903 014550 005037 003340 CLR NCNT 
4904 014554 WHILE NCNT LT NCNT1 00 sWHILE THERE ARE RECORDS REMAINING: 
4905 014554 502718: 
4906 014554 023737 003340 003342 CMP NCNT .NCN 
4907 014562 002071 6BGE 502728 
4908 014564 004737 007344 JSR PC ,CMDAC sSTORE CMD ASCII IN ERROR MSG. 
4909 014570 004737 015452 JSR PC, FIRSTU sSET UP FOR FIRST UNIT. 
4910 014574 WHILE DEVTBLC(RS) NE SEND DO sWHILE THERE ARE DEVICES REMAINING: 
4911 014574 502738: 
4912 014574 026527 002532 177777 CMP DEvTBLCRP 
4913 014602 001442 BEG 50274$ 
4914 014604 : IF @MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
4915 014604 032737 000400 003346 BIT omMod.Co, 
4916 014612 001421 BEG 5027S$ 
4917 014614 TF @xO.BOT NOTSETIN ECTFLG(RS) THEN ;IF NOT AT BOT 
4918 014614 032765 000002 003426 BIT 2x0.B0",. 
4919 014622 001014 BNE 50276$ 
4920 014624 IF OxXO.EOT SETIN EOTFLGCRS) THEN sBuT IF AT EOT 
4921 014624 032765 000001 003426 BIT @x0.EOT, 
4922 014632 001406 BEQ 502778 
4923 14634 IFB ALLEOT NE 00 THEN sAND ALL OTHERS AT EOT 
4924 014634 105737 003450 TsTB8 ALLEOT 
4925 014640 001402 BEQ 503008 
4926 014642 004737 014750 JSR PC, VF ISU :'HEN READ VERIFY 
4927 014646 ENDIF 3if NOT ALL AT. EOT, FREEZE 
4928 014646 503008: 
4929 014646 ELSE 3IF NOT AT BOT AND 
4930 014646 000402 BR 503018 
4931 014650 502778; 
4932 014650 004737 014750 JSR PC, VF ISU sNOT AT EOT, READ VEY 
4933 014654 ENDIF ¥ 
4934 014654 503018: 
4935 014654 ENDIF 
4936 014654 502 "os: 
4937 014654 Et SE sELSE TF CMO LS NOT REVERSE: 


4978 014654 000412 6R- BOSONS 


GLOBAL AREAS 
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4939 
4940 


014656 
014656 
014656 
014664 
014666 
014674 
014676 


014676 
014702 
014702 
014702 
014702 
014702 
014706 
014706 
014710 
014710 
014714 
014714 
014722 
014724 
014730 
014730 
014732 
014732 
014732 
014732 
014732 
014736 


014736 


014744 
014744 
014746 
014746 
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005237 
013737 
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000207 


000001 
000001 


014750 


015520 


016060 
002532 
014746 


003340 
003346 
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003426 
003346 


177774 


003352 


18: 
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C10 


SEQ 0119 
50275$: 
IF @XO.EOT NOTSETIN EFOTFLGCRS) OR OCMD.CO NOTSETIN CMDWRD THEN 
BIT @x0.E0T, 
BEQ 50303$ 
BIT CMD .CO, 
BNE 50304$ 


JSR PC, VF ISU 


ENDIF 


ENDIF 
JSR PC,NEXTU 


ENDDO 


JSR 


IF DEVTBLC(RS) EQ ONINUSE 


JMP 1% 
ELSE 


ENOIF 


LET NCNT := NCNT «+ Ol 


LET PC 
ENDDO 


RTS 


PC, CKHAE 


MOWD 


pc 


:* CMOWRD 


THEN 


50305%: 
sIF NOT AT EOT OR NOT A MOTION cat THEN: 


sISSUE CMD, CHECK STATUS AND D 


503043: 
503023: 
3GO FIND THE NEXT UNIT. 
BR 
50274$: 
3CHECK FOR HALT AFTER EACH CMD. 
sBTL 
cmp 
BNE 
;BTt 
3BTL 
BR 
503053: 
sBTL 


503068: 
sUPDATE THE RECORD seanae 
sSAVE PREVIOUS COMMAND = 

Vv 


502728: 
sRE TURN, 


ATA, 


$0273$ 


DEVTBLCR 
503055 


50306$ 


NCNT 
CMOWRD .P 
5027i$ 


ARE AS 


Pl 


014750 
014750 
011754 
014760 
014 760 
014760 
014764 
014766 
014766 
014772 


MACY 
Oo - APR 


013702 
062702 


020237 
001403 
012742 
000772 
004737 
105737 


001002 
004737 


105737 
001006 


032765 


000207 


D10 


a ontgge) OO APR BAAR at eROOTENGS SECTION 


003336 
000010 


003336 


177777 


010326 


003446 


010636 


003446 


000002 
015036 


003426 


VF ISU:: 


SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
CHECK STATUS, CHECK DATA, 


INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: EXCUTE, GOWAIT, CKDATA, 


LET R2 := DATARD + 08, sINIT READ BUFFER POINTER. 
MOV 


WHILE R2 NE DATARD DO 


ADD 
sUNTIL 8 BYTES at BEEN SET, 


SEQ 0120 


DATARD,R 
08. ,R2 


R2,DATAR 
50310$ 
#-1,-CR2 
503078 


DROPED 
50311$ 


0O7$: 
CMP 
BEQ 
LET -(R2) :* @-1 sINIT READ BUFFER, 
MOV 
ENDDO 
BR 
50310$: 
JSR PC, EXCUTE :GO EXECUTE THE COMMAND. 
IFB DROPED EQ @0 THEN 3IF UNIT HAS NOT BEEN ae + y THEN: 
SNE 
JSR PC ,GOWAIT 3GO WAIT FOR DONE BIT. 
ENDIF 


IFB DROPED EQ 00 THEN 


IF @xO.BOT NOTSETIN EOTFLGCRS) THEN 


BIT 
BNE 
JSR PC.CKDATA 3GU VERIFY DATA, 
ENDIF 
503138: 
ENDIF 
503128: 
RTS PC 


50311$%: 
3IF UNIT HAS NOT BEEN a ~~ y THEN: 


BNE 
sWHEN NOT REVERSED INTO 8 


DROPED 
S0312$ 


#x0.B0T,. 
503138 
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CZTSHD.P11 


015176 


MACY 11 30( 1046) 


06 -APR -84 08:49 


013703 
163703 


012746 
012746 
010600 
104414 
062706 


000560 


020337 
101417 


013746 
012746 
012746 
010600 
104414 
062706 


000536 
010337 
005337 
005037 
005002 
013703 
013704 


105737 


003344 
002340 


005010 


003344 


015446 
015446 
015450 
003334 
003336 


003447 


Ob -APR-84 O8:£1 PAGE 123 ; 
GLOBAL SUBROUTINES SECTION 


3 
3 

3 INPUTS 

: OUTPUTS: 

: REGISTERS: R2, R3, R44, 
3 CALLS: GCMDA 


SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
AND aed ERROR MESSAGE ON MISCOMPARE. 


s 


CKDATA:: LET R3 := BRFCNT - MSGPKT+MS.RFC ;COMPUTE REC LENGTH READ 


IF R3 EQ 0 THEN 


ERRHRD 17,WTVERM,OTAERM 


PRINTB @DTAERS 


ELSE 


IF R3 HI BRFECNT THEN 


ERRHRD 17,WTVERM,DTAERM 


PRINTB @OTAERS,CMDPKT+CP.CNT 


ELSE 


LET CKOCNT :- R35 - a1 


CLR CKOFF 

CLR R2 

LET R3 ;= DATAWT 
LET R& ;:= DATARD 


IFB T1SWB NE #O THEN 


MOv 


sWHEN NO DATA RECEIVED 
TsT 


BNE 
sPRINT ERROR AND EXIT 
TRAP 


sCOMPARE ROUTINE 


50314$: 
;WHEN REC READ IS LONGER 


8 
; THAN EXPECTED, PRINT 
T 


sAND EXIT ROUTINE 
BR 
S0316$: 


SEQ O121 


BRF CNTR 

MSGPKT +M 

R3 

50314$ 

CSERHRD 
7 


1 
WTVERM 
DTAERM 


ODTAERS, 


R3,BRFCN 
50316$ 


CSERMRD 
17 
WTVERM 
DTAERM 


CMOPKT-C 


503178 


;SAVE VERIFICATION LENGIM - 1. 


MOV 


DEC 
;CLEAR @ OF BYTES IN ERROR COUNTER, 


sINIT BYTE COUNTER 

;GET WRITE BUFFER nee 
MOV 

sGET READ BUFFER ADORESS. 


MOV 
sWHEN RUNNING TEST1-SUB Lt 
STB 


R3,CKOCN 
CKOCNT 


DATAW!.R 
DATARC,R 


Tiswe 


GLOBAL AREAS 
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015204 
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001401 
000313 


020237 
001011 


105737 
001406 


032737 
001002 


105723 
105724 


121314 


002017 


015446 


003444 


000001 


015450 


003274 
003304 


177400 
015450 


003366 
003364 
004677 
000004 


000012 
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015446 


003364 
003366 
000013 


2s: 


PAGE 124 


FLO 


SWAB (R3) 
ENDIF 


REPEAT 
IF R2 EQ CKOCNT THEN 


IFB SWBFLG NE #0 THEN 


IF @BITOO NOTSETIN CKDCNT THEN 


TSsT8 (R3)> 
TSTB CR4)+ 
ENDIF 
ENDIF 
ENDIF 
CMPB (R3),(R4) 
BEQ 3$ 
TST CKOFF 
BNE 2s 
VF YCNTCRS ) 


INC 
INC HROCNTC(RS) 
ERRHRD #17,WTVERM,DOTAERM 


LET CKDFF := CKDOFF + #1 


MOVB (R4),TIMEL 

BIC 0177400, TIME1 
MOVB (R3),TIMEC 

BIC #177400, TIME?) 
IF CKOFF LT 411. THEN 


PRINTX ODTAER2,R2,<B, TIMEL>,<6, TIMES> 


ENDIF 


SEQ Ol22 


BEQ 503208 
sSWAP FIRST WORD OF WRT BFR 
sWHICH CONTAINS THE RECORD COUNT 


50320$ 
sREPEAT UNTIL ~, DATA IS COMPARED: 
1 . 
sIF THIS IS THE LAST BYTE THEN: 
CMP R2,CKCCN 
BNE 503228 
sIF BYTE SWAPPING IS ENABLED THEN: 
TSTB SWBFLG 
BEG 50323%$ 
sIF RECORD LENGTH IS O00 
BIT eBITOO,C 
BNE 5032458 
sLAST BYTE WILL BE IN 
;THE UPPER BYTE. 


503248: 
50323$: 


50322$: 

;ARE THEY EQUAL. 

;BR IF SO. 
31 ST TIME THRU? 

:B8R IF NOT. 

;INC THE VERIFY ERROR COUNTER. 
sINC THE * HARD ERROR COUNT. 
sREPORT WRITE/VERIF Y ERROR. 


TRAP CSERHRD 

. WORD 17 

. WORD WTVERM 

~-WORD OTAERM 
s INCREMENT @& OF BYTES IN ERROR. 

INC CKDFF 


sSAVE WAS DATA FOR TYPOUT. 
;CLEAR GARBAGE. 

;SAVE SHOULD BE DATA FOR TYPOUT. 
;CLEAR GARBAGE. 

3IF ERROR BYTE COUNT IS ty THAN 11: 


BGE 50325$ 
sPRINT EXP + ACT DATA. 

CLR -( SP) 
BISB TIME?.CS 
CLR -(SP) 
BISB TIMEL.(S 
MOV R2, -( SP) 
MOV SO0TAERS, 
MOV 04,-(SP) 
MOV SP RO 
TRAP CSPNTX 

P ADD @12,SF 


5035258; 


GLOBAL AREAS 


CZTSHD.P11 


015366 
015370 
015372 
015374 
015374 
015400 
015402 
015402 
015406 
015406 
015412 
015414 
015414 
015420 
015424 
015430 
015434 
015436 
015440 
015444 
015444 
015444 
015444 
015444 
015444 
015444 


015446 
015450 
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105723 
105724 
105722 


020237 
003702 


005237 


005737 
001414 


013746 
013746 


000207 


000000 
000000 


08:49 


015446 


015446 
015450 
015446 
015450 


004746 
000003 


000019 


06 -APR-84 08:51 PAGE 125 
GLOBAL SUBROUTINES SECTION 


TSTB (R3)> 


3$; 


CKDCNT: 
CKOFF ; 


GLO 


TSTB (R4)> 
TSTB 


UNTIL R2 GT CKOCNT 


LET CKDCNT := CKOCNT + #1 
IF CKDFF NE #0 THEN 


PRINTS #DTAER3S,CKDFF ,CKDCNT 


ENDIF 


ENOIF 
ENOIF 
RTS 


. WORD 
. WORD 


Pc 


te) 
ce) 


(R2)> 


SEQ 0123 


sUPDATE WRITE BUFFER ADDRESS. . 
sUPDATE READ BUFFER ADDRESS. 
sUPDATE BYTE COUNTER. : 
sEND OF DATA COMPARE REPEAT LOOP. 
CMP R2,CKDCN 


BLE 503215 
:CKDCNT EQUALS RECORD LENGTH. 


INC CKDCNT 
3IF COMPARE ERROR HAS OCCURED THEN: 
TST CKDFF 
BEG 503268 
sPRINT @ OF BYTES IN ERROR. 
MOV CKDCNT, - 
MOV CKOFF, -¢ 
MOV SDTAER3S, 
MOV @3,-(SP) 
MOV SP RO 
TRAP CSPNTS 
é AOD #10,S5P 
503263: 
503178: 


503158: 
sOTHERWISE, RETURN. 


39 OF BrTES TO BE VERIFIED -1. 
3% OF BYTES IN ERROR COUNTER, 


AS 


015510 
015516 


015520 
015520 
015524 
015530 
015530 
015530 
015530 
015534 
015534 
015542 
015544 
015544 
015552 


MACY1L1 30( 1040) 
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105037 
005005 
026527 
001003 
062705 
000771 
026527 
001001 
104444 


016537 
000207 


105037 
042705 


062705 


026527 
001772 


016537 
000207 


003446 


002532 


000002 


002532 


002532 


003446 
177770 


000002 
002532 


002532 


O06 APR 


177774 


177777 


002074 


177774 


002074 


84 
GL 
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SUBROUTINES SECTION 
SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 


INPUTS: 
OUTPUTS: 


CALLS: 


REGISTERS: 


H1O 


FIRSTU:: LET DROPED :8= #0 
LET RS := 00 


WHILE DEVTBLC(RS) £Q ONINUSE DO 


LET RS := RS + #2 


ENDDO 


‘IF DEVTBL(RS) EQ END THEN 


DOCLN 
ENDIF 


LET L$LUN 


RTS 


INPUTS: 
OUTPUTS: 


CALLS: 


PC 


REGISTERS: 


:* DEVTBLCRS) 


NEXTU:: LET DROPED :8+= #0 


BIC 
REPEAT 


oL 


77770,R5 


LET RS :* RS + 02 


UNTIL DEVTBLCRS) NE ONINUSE 


LET LSLUN :* DEVTBLC(RS) | 


RTS 


Pc 


SEQ 0124 


sCLR UNIT DROPPED FLAG 
sCLR DEVICE PO “ER. 


CLRB DROPEC 


CLR RS 
sWHILE DEVICES wRrE NOT IN USE: 
503278: 
CMP DEVTBLCR 
50330$ 
sPOINT TO NEXT DEVICE. 
ADD #2,R5 
BR 50327% 
503305: 
;IF ALL UNITS HAVE BEEN DROPPED THEN: 
CMP DEVTBLC(R 


BNE 
300 CLEAN CODE AND TERMINATE PASS. 
TRAP CsOCLN 


50331$: 
;SET UNIT @ IN “HEADER” FOR ERROR REPORT 


MOV DEVTBLC(R 
sRETURN WITH 1ST DEVICE IN RS. 


SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 


sCLR UNIT DROPPED FLAG 
CLRB OROPED 


sBTL 
TREPEAT UNTIL ~~. be DEVICE IS FOUND. 
sUPDATE DEVICE TABLE POINTER. 


ADD $2,R5 
CMP DEVTBLCR 
BEQ 50332$ 
3SET UNIT @ IN "HEADER FOR ERROR REPORT 
MOV DEV TB. VR 


sRETURN, 


GLOBAL AREAS 
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015702 
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013705 
005265 


013704 
042704 


016503 
005002 
020227 
001405 
012723 
062702 
000770 
012775 


004737 
004737 


105737 
001404 


105237 
004737 


104424 


003400 
003314 


002350 
000377 


002502 


000016 


177777 
000002 


002320 
011170 
011224 


157400 


015776 


003411 


003446 
014102 
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SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 


DROPU: : 


INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


LET RS :* RSSAVE 


SEG O125 


MOVMSG, PRXST, LOG 


sBTL 
RSSAVE.R 


MOV 
LET FTLCNTCRS) := FILCNTCRS) + @1 ; INCREMENT THE FATAL " COUNT. 
I 
LET R& :* MSGPKT+MS.xXS3 CLR.Br #377 ;GET UDIAG ERROR CODE FROM XSTAT3. 


LET &3 := MSGPKACRS) 
LET R2 :* #0 
WHILE R2 NE @MSGCNT DO 


LET (R3)> := @-1 
LET R2 
ENODO 


:= R2 + &2 


LET aTSDBCRS) 


JSR PC,WSSR 
JSR PC ,MOVMSG 
IF R4 EQ @x3.RNY THEN 


:= @&GSCPK 


ERRDF #16,RNYM,STAERM 


ELSE 
JSR PC,PRXST 
ENDIF 
I*B RECLOG NE 90 THEN 


LET DROPED 


JSR PC,. 0G 
ENDIF 


DORPT 


:B= DROPED + 41 


FTLCNTCR 

MOV MSGPK T.-M 

BIC #377,R4 
sADR OF THIS UNIT'S MSG PACKET. 

MOV MSGPKACR 
:CLR COUNTER, 

CLR Re 
sWHILE THERE ARE MORE LOCATIONS: 

503338: 
CMP R2,eMSGC 


BEQ 50334$ 
sINIT THE MSG PACKET ee i’$ 
v 


#-1,(R3) 
sUJPDATE COUNTER, 


ADD #2 ,R2 
BR 50333$ 
50334; 
s INITIATE A GET STATUS COMMAND. 
MOV &GSCPK .a 


;WAIT A WHILE FOR SSR=1 
sMOVE MSG PACKET TO COMMON AREA. 
;IF WE HAVE A CAPSTAN RUNAWAY THEN: 


CMP R4,ex3.R 
BNE 50335$ 
sREPORT CAPSTAN RUNAWAY WITH TACH CN’. 
TRAP CSEROF 
.WORD 16 
. WORD RNYM 
STAERM 


:ELSE-IF NOT A RUNNAWAY: 
BR 503363 


503358: 
sPRINT EXTENDED STATUS REGISTERS. 


'50336$: 
sIF THE RECORD HAS BEEN LOGGED THEN: 


TSTB RECLOG 
BEG SOs357S 

3SET UNIT DROPPED FLAG, 
DROPED 


INCB 
3L.0G DATA BYTES + RD WR ERRORS, 


Sof Ss; 
sPRINT PERFORMANCE REPORT 
TRAP cspRe' 


J1LO 
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S266 015704 DROPUA: IF PASCNT(RS) NE 00 THEN 
5267 015704 005765 003254 1ST PASCNT(R 
5268 015710 001402 BEQ 50340$ 
5269 015712 LET PASCNT(RS) :* PASCNT(RS) - @1 
5270 015712 005365 003254 4 DEC PASCNTCR 
5271 015716 ENDIF > 
5272 015716 503405: 
5273 015716 LET DROPN := DEVTBLC(RS) :SAVE @ OF UNIT TO BE DROPPED. 
5274 015716 016537 002532 015774 MOV DEVTBLCR 
5275 015724 LET RO :* RS SHIFT -1 ;RO=LOGICAL DEVICE NUMBER 
5276 015724 010500 MOV R5.RO 
5277 015726 006200 ASR RO 
5278 015730 DODU RO ;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
5279 015730 104451 TRAP C$D00U 
5280 015732 IF DEVTBL(RS) NE @NINUSE THEN ;IF UNIT NOT DROPPED 
5281 015732 026527 002532 177774 CMP DEVTBL(R 
5282 015740 001410 BEQ 503418 
5283 015742 IFB IREC EQ #0 THEN :IF RECOVERY IS ENABLED THEN: 
5284 015742 105737 002211 TSTB. ss IREC 
5285 015746 001005 BNE 50342 
5286 015750 000240 NOP 
5287 015752 000240 NOP 
5288 015754 000240 NOP 
5289 015756 LET STAFLG :B= STAFLG + @1 ;SET START FLAG TO ENABLE REWIND, 
5290 015756 105237 003452 INCB.  STAFLG 
5291 015762 ENDIF 
5292 015762 503428: 
5293 015762 ENDIF 
5293 015762 503418: 
5295 015762 DRORTN: LET DROPED :B8= DROPED + 91 ;SET UNIT DROPPED FLAG. 
5296 015762 105237 003446 INCB  DROPED 
5297 015766 LET RS := RSSAVE BTL 
5298 015766 013705 003400 MOV RSSAVE.R 
3299 015772 000207 RTS PC RETURN, 


5301 015774 000000 DROPN: .WORD O 3% OF UNIT TO BE DROPPED 


GLOBAL AREAS 
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016130 
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012746 


105737 
001430 


105737 
001023 


104450 
103023 


013704 
004737 


112337 
112337 
111337 


002204 


003455 


003346 
007416 


004042 
004043 
004044 


06 - APR -84 


08:51 


PRXST:: 


CKHAE: : 


K10 
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SEG 0127 
SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 
PRINTX #GETSTM 
MOV #GETSTM, 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 04 ,SP 
PRINTX #STAERS,MSGPKT+MS.>S0,M4SGPKT+MS.XS1,MSGPKT+MS.xXS2,MSGPKT+MS.xS3 
MOV MSGPKT «Mm 
MOV MSGPKT+M 
MOV MSGPKT+M 
MOV MSGPKT +M 
MOV @STAERS, 
MOV #5,-CSP) 
MOV SP RO 
TRAP CSPNTX 
ADD #14,SP 
RTS PC 
SUBROUTINE TO HALT AFTER EACH COMMAND. 
INPUTS: 
OUTPUTS: 
REGISTERS: R3, R4 
CALLS: 
IFB HAE NE #0 THEN ;IF HALT FLAG IS SET: 
TSTB HAE 
BEQ 50343$ 
IFB MISCFG EQ #0 THEN : 
TsTs MISCFG 
BNE 50344$ 
MANUAL :I1S MANUAL INTERVENTION ALLOWED? 
TRAP CSMANI 
BNCOMPLETE CKHRTN ;BR IF NOT. 
Bcc CKHRTN 
LET R&4 := CMDWRD ;COMMAND WORD. 
MOV CMDWROD ,R 
JSR PC,GCMDA sFETCH ADR OF CMD ASCII. 
LET HALTM :B= (R3)> sMOVE CMD ASCII 
MOVB (R3)-,mA 
LET HALTMel :B= (R3)> 
MOVB CR3)- HA 


LET HALTMe2 :B= (R3) 
GMANIL HALTM,TIME1,1, YES 


sHALT 


: INTO MESSAGE. 


MOVB 
- WAIT FOR AN OEPRATOR INPUT. 


TRAP 


CR3), HAL 
C$GMAN 


GLOBAL AREAS 
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016132 
016134 
016136 
016140 
016140 
016140 
016142 
016142 
016142 
016146 
016146 
016146 
016146 
016146 


016150 
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000130 
004042 
000001 


000402 


105037 


000207 


003455 
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10000$: 
ELSE 


LET MISCFG :B= #0 


ENDIF 
ENDIF 
CKHRTN: RTS 
EVEN 


ENDMOD 


PC 


10 


sRETURN 


. WORD 

.WORD 

. WORD 
503443 

CLRB 
503458: 
50343$: 


SEQ 0128 


T$CODE 
HALTM 
1 


50345$ 


MISCFG 


GLOBAL. AREAS 
CZTSHD P11 


5375 
5376 


016150 


016150 
016150 


016150 
016150 
016154 
016160 


016340 
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010537 
004737 


026527 
001562 


016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 


016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 


016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 


016546 
016546 
016546 
016546 
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SEQ 0129 
. TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 
BGNMOD 
gee 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
= 
BGNRPT 
LSRPT:: 
LET RSSAVE := RS ;SAVE CURRENT DEVICE POINTER. 
MOV R5,RSSAV 
JSR PC,FIRSTU sFIND THE FIRST UNIT. 
WHILE DEVTBL(R5) NE #END DO ;WHILE THERE “saa 
177777 DEVTBLCR 
; BEQ 50347$ 
PRINTS #RPT1A,DEVTBLC(RS),PASCNTCRS),RECCNTCRS) 
MOV RECCNTC(R 
MOV PASCNTCR 
MOV DEVTBL(R 
' MOV #RPT1A, - 
MOV PRO 
TRAP CSPNTS 
ADD #12,SP 
PRINTS #RPT1B,WRBC +30(R5),WRBC+20(RS),WRBC+10C RS), WRBCCRS ) 
MOV WRBCCRS) 
MOV WRBC + 10¢ 
MOV WRBC + 20¢ 
MOV WRBC + 30¢ 
MOV @RPT1B, - 
MOV #5, -CSP) 
MOV SP RO 
TRAP CSPNTS 
ADD #14,SP 
PRINTS #RPT1C,RRBC+30(R5),RRBC+20(R5),RRBC+1OCRS) ,RRBCCRS) 
MOV RRBCC(RS >) 
MOV RRBC+10¢ 
MOV RRBC +20¢ 
MOV RRBC + 30¢ 
MOV #RPTIC, - 
MOV #5,-CSP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD #14,SP 
PRINTS #RPT1D,RFBC+30(R5S), RFBC+20(R5), RFBC+10(RS),RFBCCRS) 
MOV RFBCCRS) 
MOV RFBC-10¢ 
MOV RFBC +20 
MOV RFBC + 30 


NiO 
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CZTSHD.P11 06-APR-84 08:49 REPORT CODING SECTION : SEQ 0130 
5431 016344 012746 017211 MOV #RPT1D, - 
5432 016350 012746 000005 MOV #5, -CSP) 
5433 016354 010600 MOV SP ,RO 
5434 016356 104416 TRAP CSPNTS 
5435 016360 062706 000014 ADD #14,SP 
5436 016364 PRINTS #RPTIF ,WRRECCRS),RRRECCRS),RFRECCRS) 

5437 016364 016546 002754 MOV RFRECCRS 
5438 016370 016546 002734 MOV RRRECCRS 
5439 016374 016546 002714 MOV WRRECCRS 
5440 016400 012746 017315 MOV #RPTIF, - 
5441 016404 012746 000004 MOV #4, -(SP) 
5442 016410 010600 MOV SP ,RO 
5443 016412 104416 TRAP CSPNTS 
5444 016414 062706 000012 ADD #12,SP 
5445 016420 PRINTS #RPT1G,WRUNRCRS ),RRUNRCRS),RFUNRCRS ) 

5446 016420 016546 002764 MOV RFUNRCRS 
5447 016424 016546 002744 MOV RRUNRCRS 
5448 016430 016546 002724 : MOV WRUNRCRS 
5449 016434 012746 017366 MOV #RPT1G, - 
5450 016440 012746 000004 MOV #4, -(SP) 
5451 016444 010600 MOV SP ,RO 
S452 016446 104416 TRAP CSPNTS 
5453 016450 062706 000012 ADD #12,SP 
5454 016454 IFB BADTSwW NE #0 THEN a 

5455 616454 105737 002206 TSTB BADTSW 
5456 016460 001402 BEQ 50350$ 
5457 016462 004737 016544 JSR PC,BTRPT ;GO PRINT BAD TAPE SPOTS WHEN ENABLED 

5458 016466 ENDIF 

5459 016466 50350$: 

5460 016466 , PRINTS #RPT1LI,.SCCNTCRS),HROCNTCRS),.FTLCNTCRS), VF YCNTCRS) 

5461 016466 016546 003274 MOV VF YCNTCR 
5462 016472 016546 003314 MOV FTLCNTC(R 
5463 016476 016546 003304 MOV HROCNTC(R 
3464 016502 016546 003264 MOV SCCNTCRS 
5465 016506 012746 017563 MOV #RPTII, - 
5466 016512 012746 000005 . MOV #5,-CSP) 
5467 016516 010600 MOV SP ,RO 
5468 016520 104416 TRAP CSPNTS 
5469 016522 062706 000014 ADD #14,SP 
5470 016526 004737 015520 JSR = PC,NEXTU sFIND THE NEXT UNIT. 

5471 016532 ENDDO 

5472 016532 000612 BR 50346$ 
5473 016534 50347$: 

5474 016534 LET RS := RSSAVE sRESTORE CURRENT DEVICE POINTER. 

5475 016534 013705 003400 MOV RSSAVE,R 
5476 016540 EXIT RPT 

5477 016540 000157 «WORD JSJMP 
5478 016542 001130 «WORD L10010-2 
5479 

5480 

5461 

5482 

5483 3 SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 

5484 F WRITE RETRIES: CUMULATIVE COUNT 

5485 3 BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 

54f6 ; COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 
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016544 
016544 
016550 
016554 
016560 
016562 
016564 
016570 


016722 
016726 


016537 


017703 
006203 


010346 
012746 
012746 
010600 
104416 
062706 


005703 
001457 


020327 
101402 


012703 


012746 


MACY11 30( 1046) 
08:49 


002544 
164634 


017467 
000002 


000006 


017554 


00000¢ 


003436 


neton sag 


Bid 


08;51 A 135 


T CODING SECTION 


BITRPT: 


PRINTS @RPTIE,WRIYCTCRS) 


LET BTPT :* BIADDR(RS) 
LET R3 ;:= OBIPT SHIFT -1 


PPINTS ORPT1U,RS 


IF R3 NE 0O THEN 


IF R3 HI 020. THEN 


LET R35 :* 020, 
ENOIF 


PRINTS OCRLF SP 


LET R& s+ BIPT + Oo 


LET R2 :* 00 
REPEAT 
PRINTS 


LET R2 3* Re + OL 
LET R&@ 3+ R&a +e O 


If RL EQ O10, THEN 


ORPTLK, CRO) 


A 
sBTPT IS BOTH THE BAD TAPE SPOT 


sAND THE LUGGING INDEX 


sPRINT & OF BAD TAPE SPOTS 


sPRINT GLOBAL WRITE RETRY COUNT 


ADO 06, 
sPRINT RECORD @ IF BAD th vents > bs 


6LOS 
320 BAD SPOTS IS THE LIMIT 


sFETCH A BAD SPOT ID 


503523: 


sR2 = PRINT COUNT PER LINE: 10 MAX 


sCOUNT PRINTS 


sNEXT 


503538: 


sPRINT A BAD SPOT ID 


“SEG 0141 
MOV WRTYCTCR 
MOV ORPTIE, 
MOV 02, -(SP) 
MOV SP RO 
TRAP CSPNTS 
00 6 ,5P 
COUNTER 
Vv TADOR’R 
MOV aBrPrT RS 
ASR R3 
MOV RS, (SP) 
MOV ORPTLU, 
MOV 02, -CSP) 
MOV P,RO 
TRAP CSPNTS 
SP 
3 
BEG 50351$ 
CMP R3,020. 
503Se2$ 
MOV 920. R53 
MOV eCRLF SP, 
MOV SP RO 
TRAP CSPNTS 
ADD @4,5P 
MOV BTPT RG 
ADD 82,R4 
CLR R2 
MOV CRAY, -COS 
MOV ORPTIK, 
MOV @2, -( SP) 
MOV SP RO 
TRAP CSPNTS 
ADD 6, 5P 
TNC RO 
ADD ol, RS 
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016726 
016732 
016734 
016734 
016740 
016744 
016746 
016750 
016754 
016754 
016760 
016760 
016764 
016764 
016764 
016764 
016766 
016770 


017010 


017012 
017067 


017563 
017637 


017674 
017674 
017674 


017676 


06 - APR - 84 


020227 
001014 


012746 
012746 
010600 
104416 
062 706 


162703 
162702 


020203 
001343 


. 012746 


012746 


104425 


MACY11 30( 1046) 


08:49 
000012 


005216 
000001 


005213 


051501 
031523 


040445 
052131 
042524 
052131 
022463 
041505 
042522 
044522 
031104 
030523 
042520 
042045 


Cll 
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REPORT CODING SE 


RPTIA: 
RPT1B: 
RPT1C: 
RPT1D0: 


RPTIF: 
RPT1G: 
RPTLE: 
RPT1J: 
RPTLK: 
RPTII: 


L10010: 


TION SEQ 0132 
CMP R2,010. 
BNE 503543 
PRINTS @CRLFSP 3GO TO NEXT PRINT LINE PAST 10 PRINTS 
MOV @CRLFSP, 
MOV 1,-CSP) 
MOV SP RO 
TRAP CSPNTS 
ADD o4,5P 
LET R3 := RS - O10, sADJUST BAD SPOT COUNT 
SUB 910. ,R3 
LET R2 ;:* Ro - O10. sADJUST PRINT COUNT 
SUB #10. ,R2 
ENDIF 3 
503543: 
UNTIL R2 EQ R35 sLIMIT: #@ OF BAD SPOTS 
CMP R2,R3 
BNE 503535 
ENDIF 8 
503518: 
PRINTS @#@CRLF 8 
MOV OCRLF, -¢ 
MOV 91, -CSP) 
MOV SP RO 
TRAP CSPNTS 
ADD o4,5P 
RTS PC 
-NLIST BEX 
-ASCIZ /S@NSNSAUNIT 6018S538APASS: 8058S 3SARECORD: SD5SEN/ 
-ASCIZ /SABYTES WRITTEN 8038A,82738A ,82738A,873508N/ 
-ASCIZ /#ABYTES READ REV 8038A,8738A,62738A,8736N/ 
-ASCII /SABYTES READ FWO 8038A,8756A ,87358A ,8Z7350N/ 
ASCIZ /8S23SAWRTSSASARDRSS4SARDF SN/ 
-ASCIZ /#ARECOVERABLE ERRORS $058S28058S28058N/ 
-ASCIZ /SAUNRECOVERABLE ERRORS #8058S2805s8S2sD50N/ 
-ASCIZ /SAWRITE RETRIESSS8SD05S8N/ 
-ASCIZ /sNSD28A BAD SPOTS THIS TAPE PFSS PRECEDING RECORD 29: 
-ASCIZ 78058517 
ASCII “S#ASPEC CONDSS 3SAHARDSS 3SAF ATAL SS SSACOMPARESN” 
-ASCIZ 85380585 3860565 360585 3S050NSN/ 
-LIST BEX 
EVEN 
ENDRPT 


TRAP CsRPrT 


-SBTTL LOAD DEVICE PROTECTION TABLE 


see 
sTABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 


BGNPRO 


sTHE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TES! THE LCAO 


’ 


D1ii 


8 > 06-APR PAGE 5 ec 
SPM Oe APR a4 0 th —— L88p DEV te PRAPecrTON hare SEQ 013% 
Seas OLre7e 000000 sgiterters P-THL OFFSET OF TSSR, THE 1511 CSR 
Baa CLT 00 ;? ? “WORD °1 ;P-TBL OFFSET OF MASS BUS UNIT ®: -1 = NOT A MAS 
S5e0 O1 e702 ee {WORD -1 sP-TBL OFFSET OF DRIVE #: -1 = NONE, ONE ORIVE P 


5590 017704 ENDPROT 
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017704 
017704 


017704 
017704 
017712 
017714 
017714 
017716 
017720 
017722 
017724 
017730 
017730 
017734 
017736 
017742 
017744 
017750 
017752 
017756 
017760 
017762 
017764 
017766 
017770 
217770 


017770 


032727 
001426 


000000 
012746 
012727 
000000 
013727 
000000 


105737 
001413 
105037 
005002 
020227 
001405 
005062 
062702 


000770 


000003 


000010 
000372 
002116 
177772 
177756 


002202 
002202 


000550 


002554 
000002 


002310 


06-APR-84 36:51 PAGE 136 
INITIALIZE SECTION 


-SBTTL INITIALIZE SECTION 


| aed 

; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3 AT THE BEGINNING OF EACH PASS. 

Rae 


BGNINIT 
LSINIT:: 
INIT1LO: IF @BITO!IBIT1 SETIN @CMDPKT THEN ;IF CMD PACKET IS NOT — 
BEG 
ERRSF #1,CMDPKM ;PRINT ERROR MSG, 
TRAP 
. WORD 
. WORD 
. WORD 
MOV 08. ,-(SP) sSETUP STACK FOR LONG DELAY 
97%: DELAY 250. :GO TO SUPERVISOR, WAIT — 
Vv 
.- WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
@NE 
OEC (SP) ;SUBTRACT 1 
BNE 97% ;BRANCH UNTIL DONE 
TST (SP )- s;CLEAN UP THE STACK 
BR INIT10 3 
ENDIF 
503558: 
IFB CLRFLG NE 90 THEN sIF CLR COUNTERS FLAG ag 
BEQ 
CLRB CLRFLG sINIT CLR FLAG. 
LET R2 := 00 
CLR 
WHILE R2 NE @CNTLEN DO 
503578: 
CMP 


LET WRBC(R2) := 0 
LET R2 :* R2 + 02 
ENDODO 


BEQ 
sCLR ALL STATISTICAL COUNTERS. 

CLR 

ADD 


BR 
503605: 
503568: 
3IF RESET RANDOM VARIABLE FLAG I 


ENDIF 


IFB RRANV NE &O THEN 


SEQ 0134 


O 4 BOUN 
eBITO!IBI 
50355$ 
CSERSF 


1 
CMOPKM 
ie) 


Ss. 
#250. .¢P 


i?) 
LsOLy,(P 
0 
-6CPC) 

4 


22¢PC) 
-=20 


CLRFLG 
50356$ 


Re 


R2,eCNTL 
50360$ 
WRBC(R2 } 
@2,R2 


SoO357$ 


S SEY Tr 
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020126 
020130 


020132 
020132 
020136 
020140 
020140 
020142 
020142 
020146 
020146 


020152 
020152 
020154 
020160 
020160 
020162 
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105737 
001406 


012737 
012737 


012700 
104447 


103026 
105237 
012705 


012765 
162705 


005705 
001371 


013705 
006305 


162705 


010565 
006265 


005705 
001370 
012700 
104447 
103004 
105237 
105237 
104421 
010037 
005003 


MACYL1 
08:49 


002203 


153624 
032561 


000040 


003452 


177774 
000002 


002012 


000002 


002532 
002532 


000034 


30( 1046) 


06-APR-84 08:51 


Fill 


PAGE 137 


INITIALIZE SECTION 


003360 
003362 


002532 


INIT15: 


INIT16: 


LET RANB :* #RANBC 
LET RANS := #RANSC 
ENDIF 
READEF EF .START 


BNCOMPLE TE INIT15 
LET STAFLG :B= STAFLG + @1 
LET RS := 0% 
REPEAT 
LET DEVTBL(RS) := ONINUSE 
LET RS := RS - 02 
UNTIL RS EQ 00 
LET RS :* LSUNIT SHIFT 1 
REPEAT 
LET RS := RS - 02 
LET DEVTBLC(RS) :* RS SHIFT - 
UNTIL RS EQ 00 
READEF EF .PwWR 
BNCOMPLETE INIT16 
LET STAFLG :B= STAFLG + o1 


LET PWRFLG :B= PWRFLG + #1 


RFLAGS OPFLAG 


LET R3 := #0 
IFB PWRFLG EQ 90 THEN 


SEQ 0135 
TSTB RRANV 
BEQ 50361$ 
sRESET RANDOM BASE +. 
MOV @RANBC ,R 
;RESET RANDOM SAVE LOCATION. 
MOV SRANSC,.R 
503618: 
sREAD START COMMAND EVENT FLAG. 
MOV @EF .STAR 
TRAP CSREFG 
;BRANCH IF NOT STARTING. 
INIT15 
sSET START COMMAND FLAG. 
INC STAFLG 
96,R5 


MOV 

s INITIATE UNIT NUMBER TABLE 
503625: 

;BY STORING NOT IN USE IN EACH LOCATION. 


MOV @NINUSE, 
suB #2,R5 
TsT RS 
BNE 503625 
MOV LSUNIT,R 
ASL RS 
;STORE ALL UNIT 
503635: 
sNUMBERS IN DEVTBL. 
su8 #2,.R5 
MOV RS .DEVTB 
ASR DEVTBLC(R 
TST RS 
BNE 50363$ 
sHAS THERE BE A POWER FAILURE? 
MOV SEF PWR, 
TRAP CSREFG 
;BRANCH IF NOT. 
: INIT16 


. Bcc 
;IF SO...-SET THE START FLAG. 
STAFLG 


$7 INCB 
3IF SO - SET THE POWER FAIL FLAG, 
INCB PWRFLG 


sREAD AND STORE FLAGS SET By OPERATOR 
TRAP CSRFLA 
MOV RO, OPFLA 
;CLEAR EVENT FLAG 


CLR RS 
sIF POWER FAIL HAS NOT OCCURRED THEN: 
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020270 


06 - APR 


-84 


105737 
001020 


012700 
104447 


103014 


105737 
001010 


012700 
104447 


103402 
005103 
000401 


005203 


000401 


005203 


004737 
005002 
026527 
001450 
005202 


010500 
006200 


104442 
103036 
011065 


012065 
162765 


aay 30( 1046 ) 


08:4 
0034535 


000035 


003452 


000037 


015452 


002532 


002462 


002452 
000002 


177777 


002452 


06-APR-84 08: 
INITIALIZE SECT 


23 
I 


Gll 


1 PAGE 138 
ON 
READEF EF .NEW 
IFCOND CS THEN 
IFB STAFLG EQ #0 THEN 
READEF #EF .RES 
IFCOND CC THEN 
LET R3 := COMP R3 
ELSE 
LET R353 := R35 + M1 
ENDIF 
ELSE 
LET RS: a . eL ig 
ENDIF : ‘ 
Ld 
ENDIF code, 
ENDIF : 
JSR PC,FIRSTU 


LET R2 := 00 

WHILE DEVTBL(RS) NE #—€ND DO 
LET R2 := RO 

LET RO 


« #1 
:= RS SHIFT -1 


GPHARD RO,RO 

It COND CS THEN 
LET TSSRCRS) := (RO) 
LET TSDBCRS) 


:= C(RO)- ee 


TSTB 

BNE 
sUPDATE PASS COUNT WHEN 

MO 


Vv 
TRAP 
sSUPERVISOR IS IN NEW vor + 
sAND DIAG WAS NEITHER STARTED 
TSTB 
BNE 


MOV 
TRAP 


6cs 
COM 
BR 
50367$: 
3SET iST PASS IF NEW _s aoe 
NC 
sRESTARTING 


;NOR 


sRESTARTED 
;00 IT 


503708: 
BR 
503668: 
sSET 157 PASS IF NEW PASS AND 
; INC 
“STARTING 
503718 
:D0 NOT UPDATE IT ON CONT INUE 
503658: 
3OR ON POWER FAIL 
5036438: 


sINIT DEVICE POINTER. 
sINIT DEVICE COUNTER, 


FOB TSS$: 


MOV 
ASR 


SEQ 0154 


PWRFLG 
50364$ 


EF .NEW, 
CSREFG 


50365$ 


STAFLG 
50366$ 


SEF RES, 
CSREFG 


50367$ 
R3 
503708 


R3 


50371$ 


R3 


R2 
DEVTBLCR 
50373$ 
R2 

RS ,RO 

RO 


3GET HARDWARE P TABLE ©ROM SUPER. 


TRAP 


Bcc 
sSAVE TSSR ADDRESS. 


sSAVE TSDB ADDRESS. 


CSGPHRO 
Soz74s 
CRO). 7355 


CROYV- TS 
eo, TSOBK 


tL ANE OUS gE a 
06 - APR 


DLP tt 


-84 


011065 
012746 


005703 
002003 


005265 
000403 


012765 


005065 
004737 


000724 


005702 
001033 


012746 
012746 


062706 
012746 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 
005316 
001 562 


MACY11 30( 1046) 
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0024 72 
000340 
002512 
002472 
000003 


000010 


003254 


000001 


003324 
015520 


004645 
000001 


000004 
000010 
000372 
002116 
177772 
177756 


003254 


06 APR -84 


INITIALIZE SE ect 


98%: 


Hil 


:51 PAGE 139 
ION SEQ 0137 
LET TSVCTCRS) := (RO) s;SAVE INTERRUPT VECTOR —o (no). 
SV 
SETVEC TSVCTC(RS), TS4INT(RS),@INTPRI ;SET UP INTERUPT PROCESSING COND 
MOV #INTPRI, 
MOV TS4INTC(R 
MOV TSVCTCRS 
MOV @3,-CSP) 
TRAP CSSVEC 
ADD #10,SP 
IF R3 NE #0 THEN sACTUAL PASSCOUNT setinetiang* a R3 as 
5 
BEG 50375$ 
IF R3 LT #0 THEN 
TST RZ 
BGE 50376$ 
LET PASCNT(RS) := PASCNITC(RS) + #1 
INC PASCNTC(R 
ELSE 
BR 50377$ 
50376$: 
LET PASCNT(RS) := #1 
MOV #1,PASCN 
ENDIF 
50377$: 
ENDIF 
503758: 
ENOIF 
50374$: 
LET RECCNTC(RS) := #0 ;CLEAR RECORD COUNT 
CLR RECCNITC(R 
JSR PC NEXTU 300 IT FOR ALL DEVICES. 
ENDDO 
BR 50372$ 
5037338: 
IF R2 EQ #O THEN ;IF THERE ARE NO UNITS: 
TsT Re 
BNE 50490$ 
PRINTF #AUDRPM sPRINT ALL UNITS DROPPED, 
MOV SAVORPM, 
MOV #1,-C€SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 4,5 
MOV #8.,-(SP) sSETUP STACK FOR LONG DELAY 
DELAY 250, :GO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV 9250..¢F 
. WORD oO 
MOV L$OLr, <P 
.WORD .) 
DEC oc Pc? 
BNE .-4 
DEC -22. PC > 
BNE .-20 
DEC CSP) ;SUBTRACT 1 
BNE 98$ ;BRANCH UNTIt DONE 
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58.5 


06 APR 84 
005 726 
104422 
104444 


012700 
104441 


105737 
001152 
032737 
001146 
004737 


026527 
001540 


012737 
000402 
005237 


023727 
003113 


012775 
012727 
900000 
013727 
000000 
005367 
001375 
005367 
001367 


032775 
001420 


032775 
001001 


000463 


016546 
012746 
012746 
010600 


MACYLI 3001046) 


08:49 


000001 


003364 
003364 


002320 
000001 
002116 
177772 
177756 


000200 


000100 


002532 
005127 
000002 


003456 


177777 


003364 


000025 


002452 


002462 


002462 


06 
INIT 


APR 84 08 
IALIZE SECT 


:5 
I 


1 PAGE 
ON 

TST 
BREAK 
DOCLN 


ENDIF 


[11 


140 


(CSP )+ 


SETPRI @#PRIOO 


IFB IREC EQ #0 AND #ADR NOTSETIN OPFLAG THEN 


JSR PC,FIRSTU 


WHILE DEVTBLC(RS) NE END 00 


BEGIN COUNTER 


;CLEAN UP THE STACK 
:GO TO SUPERVISOR, CHECK TTY. 


TRAP 
;00 CLEAN CODE + ABORT PASS. 
TRAP 


504003: 
;LOWER CPU PRIORITY TO O 


MOV 
TRAP 


BNE 
BIT 


BNE 
sAND AUTO-OROP NOT CALLED, THEN 
sWHILE THERE ARE MORE DEVICES: 


504025: 
CMP 


BEQ 
s;START 3.5 MINUTE COUNTER 


INCR TIME] FROM #1 TO #25 BY 41 


LET aTSDB(RS) 


DELAY 1 


MOV 
BR 
504063: 


INC 
50405$: 


:= @GSCPK ;AND GET UNITS STATUS 


;WAIT 


IF @TS,.SSR SETIN @TSSRCRS) THEN 


If @TS.OFL NOTSETIN @TSSRCRS) THEN 


LEAVE COUNTER 


ELSE 


504115: 
PRINTF @OFLINM,DEVTBLCRS) ;PRINT UNIT OFF a EVERY 
Vv 


BIT 


MOV 
MOV 
MOV 


IF ERROR RECOVE 
TSTB 


BNE 
sEXIT COUNTER -— UNIT 


SEQ 01358 


CsBRI 
CSOCLN 


SPRIOO,R 
CSSPRI 
Rv IS EN 


DEVTBLCR 
5040358 


#1,TIMEL 
50405$ 


TIME1 


TIME1, #2 
50407$ 


@GSCPK a 
@1,(PC)- 
.e) 
LsOLy,(P 
QO 

-6(PC) 
-°4 
-22(PC) 
. -20 
#TS.SSR, 
504108 


@TS.OFL, 
S0411$ 
ON LINE 
50404 $ 


10 SEC 
CEVTBL\R 
#2OFLINM, 
#2, -(SP) 
SP RO 
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021012 


021012 


06 -APR 84 


104417 
062 706 


000412 


016546 
012746 
012746 
010600 
104417 
062706 


012737 
000402 


005237 
023727 
003023 
012746 
012727 
000000 


013727 
000000 


023727 


004 737 


MACY11 30( 1046) 


08:49 


000006 


000372 
002116 
177772 
177756 


003364 


011224 
011736 


015520 


Ld 


003366 


000013 


000025 


06 APR-84 08:51 
INITIALIZE SECTION 


993: 


J11 
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ENDIF 
ELSE 


TRAP 
ADD 


50412s: 


504105: 


PRINTF @NRDYM,DEVTBLC(RS) 


ENDIF 


504138: 


INCR TIME2 FROM #1 TO #13 Br #1 


MOV 
DELAY 


END COUNTER 
IF TIME1 GT 


JSR PC,NEXTU 


#4,,-(SP) 


250. 


#25 THEN 


JSR PC,MOVMSG 
JSR PC, TCC1 
ENDIF 


504158: 


50414$: 
CMP 
BGT 


SEQ 0139 


CSPNTF 
#6 ,SP 


50413$ 


DEVTBLC(R 
@NRDYM, - 
#2, -(SP) 
SP ,RO 
CSPNTF 
#6,SP 


#1, TIME) 
50414$ 


TIME? 


TIME2], #1 
50416$ 


sSETUP STACK FOR LONG DELAY 


;GO TO SUPERVISOR, WAIT 
MOV 
. WORD 


sSUBTRACT 1 
sBRANCH UNTIL DONE 
;CLEAN UP THE STACK 


TRAP 


BR 
50416$: 


sALLOW TERMINAL INTERRUPT 


BR 
50407$: 


504045: 
:IF OFF LINE FOR 3.5 mae 


BLE 
;GET MESSAGE PACKET 


1 SECOND 
#250.,¢P 


0 
LSOLY,C(P 
i?) 

-6(PC) 


er 
-22(PC) 
.-20 


CsBRK 
50415$ 


50406$ 


TIME1, #2 
S041" 


sPRINT ERROR AND DROP OFF LINE UNIT 


50417$: 


;REPEAT UNTIL ON LINE OR TIMED OUT. 


;SET UP FOR NEXT UNIT. 


Kid 
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CZTSHD.P11 06 -APR -84 08:49 INITIALIZE SECTION SEQ 0140 
5927 021016 ENDDO 
5928 021016 000634 BR 50402$ 
5929 021020 50403$: 
5930 021020 ENDIF 
5931 021020 504015: 
5932 021020 IFB PWRFLG EQ #0 THEN 
5933 021020 105737 003453 TSTB PWRFLG 
5934 021024 001026 BNE 50420$ 
5935 021026 MEMORY DATAWT sREQUEST MEMORY FROM SUPER FOR RD/WR BUF 
5936 021026 104431 TRAP CSMEM 
$937 021030 010037 003334 MOV RO,DATAW 
5938 021034 LET DATARD := DATAWT + #DATCNT ;SET RD BFR AD 
5939 021034 013737 0035334 003336 MOV DATAWT.D 
5940 021042 062737 004000 003336 ADD @DATCNT, 
5941 021050 IF QDATAWT LT @DATCNT THEN ;WHEN NOT ENOUGH FREE MEMO AVAILABLE 
5942 021050 027727 162260 004000 CMP @DATAWT, 
5943 021056 002011 BGE 50421$ 
5944 021060 PRINTF #MEMOM ;WARN OPERATOR 
5945 021060 012746 021126 MOV @MEMOM, - 
5946 021064 012746 000001 MOV #1,-CSP) 
5947 021070 010600 MOV SP,RO 
5948 021072 104417 TRAP CSPNTF 
5949 021074 062706 000004 ADD #4,SP 
5950 021100 DOCLN sAND ABORT PASS 
5951 021100 104444 TRAP CsOCLN 
S952 021102 ENDIF ;DIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 
$953 021102 504218: 
5954 021102 ENDIF 
Beet 021102 504208: 
S957 021102 LET CHGFLG :B= #0 :CLR CHANGE CMD SEQ TBL FLAG. 
5958 021102 105037 002212 CLRB CHGFLG 
S959 021106 LET R3 := #ENDFLG 
5960 021106 012703 003452 MOV ®ENDFLG, 
5961 021112 004737 011154 JSR PC,CLRERR sCLEAR ALL FLAGS. 
S%2 021116 LET PwRFLG :B= #0 ;CLEAR THE POWER FAIL FLAG. 
ter 021116 105037 003453 CLRB PWRFLG 
5965 021122 EXIT INIT 
5966 021122 104432 TRAP CSsExIT 


5967 021124 000104 «WORD L10012-. 


MISCELLANEOUS SECTION 
CZTSHD.P11 


021126 
021134 
021142 
021150 
021156 
021164 
021172 
021174 
021202 
021210 
021216 
021224 


021230 
021230 
021230 


06 - APR -84 


040445 
046440 
047524 
046101 
020122 
020122 
047045 
040445 
040517 
046040 
020122 
047045 
021230 


104411 


MACY11 
08:49 


051106 
046505 
020117 
020114 
042122 
043102 


042522 
020104 
051101 
042515 

000 


Lid 
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INITIALIZE SECTION 


042505 
020117 
046523 
047506 
053455 
051522 


046055 
047111 
042507 
047515 


MEMOM: 


L10012: 


-ASCIT 


-ASCIZ 


EVEN 
ENDINIT 


/@AFREE MEMO TOO SMALL FOR RD-WR BFRSSN/ 


/®ARE -LOAD IN LARGER MEMOSN/ 


TRAP 


SEQ 0141 


CsINIT 


MISCELLANEOUS SECTIONS anol y 30( 1046) 06-APR 


CZTSHD.P11 


021232 
021232 


021232 
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004737 
026527 
001525 
105037 
012746 
012746 
012746 
012746 
104437 
062706 
017502 


012700 
104436 


105737 
001423 


016537 


010500 
006200 


104451 
000452 


012775 
004737 


08:4 


015452 
002532 
003454 


000340 
021646 
000004 


000003 


002532 


002320 
011170 


177777 


015774 


002452 


-84 
AUTO DROP SECTION 
.SBTTL AUTO DROP SECTION 


08:51 


Mit 


PAGE 144 


SEQ 0142 


see 

sSECTION EXECUTED AFTER THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
sSECTION CHEKS FOR A VALIO INTERFACE LOCATION. OROPS UNIT IF NO RESPONSE 
3FROM INTERFACE 


BGNAUTO 


LSAUTO:: 


JSR PC,FIRSTU 
WHILE DEVTBLCRS) NE #END DO 


LET TRAPD4 :B= #0 
SETVEC #4,4TRAP4, #PRIO7 


LET R2 := @TSSRCRS) 


CLRVEC #4 


IFB TRAPD4 NE #0 THEN 


LET FTLCNTCRS) 
#AUTODM, ToSRCRS) 


PRINTF 


sFIND FIRST UNIT 
5 
50422$: 


H 
sSET VECTOR 4 


sADDRESS TS11 INTERFACE 
;CLEAR VECTOR AT 4 


:= FITLCNTCRS) «+ #1 


LET DROPN := DEVTBLC(RS) 


LET RO 


DODU RO 
ELSE 


LET @TSDBC(RS) 


JSR PC,WSSR 
IF #TS.SSR SETIN @TSSR(RS) 


:= RS SHIFT -1 


:= #GSCPK 


;PRINT ERROR 


sSAVE # OF UNIT 


MOV 
#RO=LOGICAL ae NUMBER 


DEVTBLC(R 
50423$ 


TRAPD4 
#PRIO7, - 
@TRAP4, - 
#4,-(SP) 
#3,-CSP) 
CsSvVEC 
#10,SP 
@TSSRCRS 


#4,RO0 
CsCvec 


TRAPD4 
50424$ 


FTLCNTCR 
TSSRCRS) 


AD 
TO BE DROPPED. 


DEVTBLC(R 
RS,.RO 


;DROP THE UNIT: EXEC —. ENODU CODE IF 


ASR RO 
RAP ¢sDd00U 
BR 50425$ 
MOV #GSCPK a 


0424$: 
;SEND GET status” COMMAND 
;WALT 
THEN 


Nil 
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CZTSHD.P11 06 -APR-84 08:49 AUTO DROP SE SEQ 0143 
6042 021400 032775 000200 002462 BIT #TS.SSR, 
6043 021406 001423 BEQ 50426$ 
6044 021410 IF #TS.OFL SETIN @TSSRCRS) THEN 
6045 021410 032775 000100 002462 BIT #TS.OFL, 
6046 021416 001416 BEQ 50427$ 
6047 021420 LET FTLCNTCRS) := FTILCNTCRS) + #1 
6048 021420 005265 003314 INC FTLCNTC(R 
6049 021424 PRINTF #OFLINM,DEVTBLC(RS) 

6050 021424 016546 002532 MOV DEVTBLCR 
6051 021430 012746 005127 MOV #OFLINM, 
6052 021434 012746 000002 MOV #2, -CSP) 
6053 021440 010600 MOV SP ,RO 
6053 021442 104417 TRAP CSPNTF 
6055 021444 062706 000006 ADD #6, SP 
6056 021450 004737 015704 JSR PC,DROPUA 
6057 021454 ENDIF 
6058 021454 50427$: 
6059 021454 ELSE 
6060 021454 000416 BR 50430$ 
6061 021456 50426$: 
6062 021456 LET FTLCNTCRS) := FTILCNTCRS) + #1 
6063 021456 005265 003314 INC FTLCNTCR 
6064 021462 PRINTF #NRDYM,DEVTBLC(RS) 
6065 021462 016546 002532 ; MOV DEVTBLCR 
6066 021466 012746 021616 MOV #NROYM, - 
6067 021472 012746 000002 MOV #2, -CSP) 
6068 021476 010600 MOV . 
6069 021500 104417 TRAP CSPNTF 
6076 021502 062706 000006 ADD #6,SP 
6071 021506 004737 015704 JSR PC,DROPUA 
6072 021512 ENDIF 
6073 021512 50430$: 
6074 021512 ENDIF . 
6075 021512 504258: 
6076 021512 004737 015520 JSR PC,NEXTU 
6077 021516 ENDDO 
6078 021516 000647 BR 50422 
6079 021520 504235: 
6080 
6081 021520 ENDAUTO 
6082 021520 L10013: 
zeae 021520 104461 TRAP CsAauTG 

4 
6085 021522 040445 052502 020123 AUTODM: .ASCII /#ABUS TRAP AT #06sN/ 


6086 021530 051124 050101 040440 
6087 021536 020124 047445 022466 


6089 021545 045 044501 052116 -ASCIZ /s#AINTERFACE BAD OR NOT SET TO ABOVE ADSN/ 
6090 021552 051105 040506 042503 


6096 021616 040445 047125 052111 NRDIM; .ASCIZ /#AUNIT SD1SA NOT RDISN/ 
6097 021624 022440 030504 040445 


y ’ 
Bl. 
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©6098 021632 047040 052117 051040 
6099 021640 054504 047045 000 


6100 021646 .EVEN 

6101 

6102 3 DEVICE BUS TRAP HANDLER 

“6108 ’ OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
6104 3 O: NO TRAP 
©6105 

6106 021646 TRAP4:: LET TRAPD4 :B= TRAPD4 + 1 

6107 021646 105237 003454 IN=B TRAPD4 
e108 O21652 000002 RTI 

6109 

lic 


MISCELLANEOUS SECTIONS MACY11 8001046) 
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elle 
6118 
6114 
6115 
6116 


021710 
021710 
021712 


021714 
021714 
021714 


104432 


104412 
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015452 


002532 
011170 
002472 
015520 


177777 


06 APR-84 08:51 _ PAGE 


CLEANUP CODING SECTION 


Cle 


147 


-SBTTL CLEANUP CODING SECTION 


tee 
+ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 


BGNCLN 


LSCLEAN:: 


10014: 


JSR 


WHILE DEVTBLCRS) NE END DO 


JSR PC 
CLRVEC 


JSR 
ENDDO 


Exit 


EVEN 
ENOCLN 


s AT THE END OF EACH PASS, 


PC, .FIRSTU 


»WSSR 


PC, ,NEXTU 


CLN 


TSVCTCRS ) 


SEQ 0145 
sF IND FIRST UNIT. 
5043138: 
CMP DEVTBL(R 
BEQ 50432$ 


sWATT FOR UNIT READY OR TIMEOUT, 
sRELEASE INTERRUPT VECTORS FOR ALL DEV. 
MOV TSVCTCRS 
TRAP CsCvECc 
sF IND NEXT UNIT. 


BR 5$0431$ 
504328: 

TRAP CSExIT 

-WORD L10014-. 


TRAP CSCLEAN 


C217le 
021716 


021716 
021716 
021720 
021722 
021722 
021730 
021730 
021734 
021736 
021736 
021742 
021746 
021752 
021754 
021756 


021762 
021762 
021764 


021766 
021766 
021766 


JUS SECTIONS MACY 
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010005 
006305 


012765 


016500 
104436 


013746 
012746 
012746 
010600 
104417 
062706 


000167 
000C00 


104453 


177774 002532 
002472 


015774 
004616 
000002 


000006 


Die 


jt $0( 1046) pede Rif section PAGE 148 


SEQ 9144 
.SBTTL DROP UNIT SECTION 
tee 
3; THE DROP-UNI’ SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DODU 
sMACRO IS CALLED WHILE IDU FLAG IS NOT SET Br OPERATOR 
i 
BGNOU 
L$DU:: 
LET RS := RO SHIFT 1 sRS = LOGICAL DEVICE NUMBER x 2. 
MOV RO,RS 
ASL RS 
LET DEVTALC(RS) := @NINUSE 3SET NOT IN USE FLAG toe + wa 7 - 
USE. 
CLRVEC TSVCTCRS) sRELEASE THE INTERRUPT VECTOR. 
MOV TSVCTCRS 
TRAP CsCvec 
PRINTF @DROPDM,OROPN sPRINT DROP DEVICE MESSAGE 
MOV OROPN, -¢ 
MOV @DROPOM, 
MOV #2, -CSP) 
MOV SP RO 
TRAP CSPNTF 
ADD 96,SP 
EXIT Ou 
. WORD J$JMP 
.- WORD L10015-2 
.EVEN 
ENDDU 
L10015: 
TRAP Cs0u 


MISCELLANEOUS SECTIONS MACY11 30( 1046) 
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021770 
O21 “9 


021770 


022052 
022052 


022056 
022056 
022060 


022062 
022062 
022062 


022064 


010005 
006305 


010065 
104442 
011065 


012065 
162765 


011065 
012746 
016546 
016546 
012746 
104437 
062706 


005065 


000167 
000000 


104452 
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002522 


002462 


002452 
000002 


002472 
000340 
002512 
002472 
000003 
000010 


003416 


002452 


Ele 


06-APR-84 08:51 PAGE 149 


ADD UNIT SECTION SEQ 0147 
-SBTTL ADD UNIT SECTION 
gee 
3; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
s TO BE (A) TESTED FOR THE FIRST TIME, OR (8) RESUMED IN TESTING. IF 
s “EF ,AUNIT” IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 
37 
BGNAU 
LSAU:: 
LET RS := RO SHIFT 1 sRS * LOGICAL DEVICE NUMBER X 2. 
MOV RO,RS 
ASL RS 
LET DEVTBLC(RS) := RO ;STORE UNIT @ IN DEVICE TABLE. 
MOV RO,DEVTB 
GPHARD RO,RO ;GET HARDWARE P TABLE wee ~ SUPER 
RAP C$GPHRD 
LET TSSRCRS) :* (RO) sSAVE TSSR ADDRESS. 
MOV (RO),TSS 
LET TSOBCRS) := (RO)+ - #2 sSAVE TSOB ADDRESS. 
MOV (RO)-+,TS 
SUB 2, TSOBC 
LET TSVCTCRS) := (RO) sSAVE INTERRUPT VECTOR _— cro). Ts 
\ v 
SETVEC TSVCTCRS), TS4INTCRS), @INTPRI 3SET UP INTERUPT PROCESSING COND 
MOV @INTPRI, 
MOV TS4INTC(R 
MOV TSVCTCRS 
weer MOV 23, -€SP) 
«\ TRAP CSSvECc 
yah ADD #10,SP 
LET INTFLGCRS) := 90. ;CLEAR INTERRUPT FLAGS. 
LR INTFLGC(R 
EXIT AU 
WORD JSJMP 
«WORD L10016-2 
-EVEN 
ENDAU 
L10016: 
TRAP Csay 
— NDMOD 


MISCELLANEOUS SECTIONS MACY11 30( 1046) 
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022070 
022070 


022074 
022074 
022074 


022076 
022076 
022102 
022106 
022112 
022116 
022116 
022116 
022124 
022126 
022126 
022132 
022132 
022136 
022136 
022142 
022150 
022150 
022156 
022160 


022214 
022216 


105037 
105037 


104402 


912702 
004737 
004737 
004737 


026527 
001434 


016502 
062702 


011265 
042765 


026527 
001014 


016546 
016546 
012746 
012746 
010600 
104417 
062706 


004737 
000740 


003441 
003440 


022722 


002532 


002502 
00vv12 


002522 
177400 


003254 


002522 
002532 
003772 
000003 


000010 


015520 


177777 


002522 
000001 


Phe 
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ADD UNIT SECTION SEG 0148 
. TITLE HARDWARE TESTS 
.SBTTL TEST 1: BASIC FUNCTIONS. 
zee 
: TEST TO EXECUTE Al.L 1SO04 FUNCTIONS. 
3 - 
BGNMOD 
BGNTST 
Tlss: 
LET RANDOM :68= #0 ;CLR THE RANDOM OPERATIONS FLAG. 
CLRB RANDOM 
LET EXPBOT :B= #0 ;CLR EXPECT BOT FLAG. 
CLRB ExPBOr 
' BGNSUB s;SUBTEST 1 - SET CHAR, DRIVE INIT, GET S 
ST 
TRAP C$BSU8 
LET R2 := &BFSEQO sADR OF CMD SEQ. 
MOV SBF SEQO, 
JSR PC ,.BFSEG ;SET UP CMD SEQ. 
JSR PC, ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
JSR PC,FIRSTU sF IND THE FIRST UNIT. 
WHILE DEVTBL(RS) NE END DO sWHILE THERE ata atts 
CMP DEVTBLC(R 
BEQ 504348 
LET R2 := MSGPKACRS) :GET MSG PACKET ADR, 
MOV MSGPKACR 
LET R2 := R2 ¢ 12 3GET xSTAT2 ADR, 
ADD #12,R2 
LET YS4CL(RS) := (RZ) CLR.BY #177400 ;STORE CODE LEVEL FROM DTR BrTE, 
MOV CR2),7S4 
BIC #177400, 
IF PASCNT(RS) EQ #1 THEN :IF THIS IS PASS 1 THEN: 
CMP PASCNTCR 
BNE 50335$ 
PRINTF #@CODELM,DEVTBL( RS), TSSACLC(RS) ;PRINT THE TSO4 MICROCODE LEVEL. 
MOV TS4CLCRS 
MOV DEVTBLC(R 
MOV @CODEL™, 
MOV #3, -CSP) 
MOV SP RO 
TRAP CSPNTF 
ADD #10,SP 
ENDIF 
504358: 
JSR PC,NEXTU s—© IND NEXT UNIT, 
ENDDO 
8R 504335 


504445; 


HARDWARE 
CZTSHD .P 


284 
6285 


TESTS MACYLL 30(1046) 
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022216 
022216 
022216 


022220 
022220 
022220 


022222 
022222 
022226 
022232 
022236 
022236 
022242 
022242 
022242 


022244 
022244 
022244 


022246 
022246 
022252 
022256 
022262 
022262 
022262 


022502 
022302 


022304 
022304 
022304 


022306 
022306 
022312 
022316 
022322 
022322 
022322 


022324 
022324 


104405 


104402 


012702 
004 737 
004737 
105037 


104403 


104402 


012702 
004737 
004737 


104403 


104402 


012702 
004737 
004737 


104403 


104402 


012702 
004737 
004737 


104403 


022774 
022676 
006510 


003452 


023006 
022676 
006510 


023100 
022676 
006510 


023152 
022676 
006510 


O06 - APR Fs 08: ie 


L10020: 


Tl.e: 


L10021: 


Vices 


L1002e2: 


11.4: 


L10023; 


72.52 


10024; 


11.63 


ENDSUB 


BGNSUB 


LET Re 


JSR 
JSR 


Gle 


PAGE 151 
BASIC FUNCTIONS, 


:* @BFSEQL 


PC.BFSEQ 
PC ,EXALL 


LET STAFLG :B= 00 


ENDSUB 


BGNSUB 


BGNSUB 


LET R2 
JSR 


JSR 
ENOSUB 


BGNSUB 


LET Re 
JSR 
JSR 
ENDSUB 


BGNSUB 


:= &BF SEQ? 


PC .BFSEQ 
PC ,EXALL 


:= @BFSEQ3 


PC.BFSEG 
PC,EXALL 


:> &BFSEQ4 


PC .BFSEQ 
PC, EXALL 


;SUBTEST 2 - REWIND. 


sADR OF CMD SEQ. 
sSET UP CMD S 


sEXECUTE CHD Sea ON ALL DEVICES. 
sCLEAR START FLAG 


WRITE/VERIFY. 


sADR OF CMD SEQ. 


3SET UP CMD SEQ 
;EXECUTE CMD SEQ ON ALL DEVICES. 


sADR OF CMD SEQ. 


sSET UR CMD S 
sEXECUTE CMD Sea ON ALL DEVICES. 


sSUBTEST S - SPACE FILES. 


sADR OF CMD SEQ. 


sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVIC 


- SPACE RECORDS. 


SEQ 0149 


CSESUB 


Cs85UB 


oBFSEG1, 


STAFLG 


CSESUB 


CS$BSUB 


CsEsus 
- WRITE TAPE MARK, ERASE. 
Cs8SuB 


#BFSEQG3, 


CsESUB 


CsBSuUB 


oBFSEQS, , 


CSsESVE 


Hle 
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ZTSHD.P11 06 -APR -84 08:49 TEST 1: BASIC FUNCTIONS. SEQ 0150 
oer 022324 104402 TRAP C$6SUB 
6 
6342 022326 LET R2 := @BFSEQS sADR OF CMD SEQ. 
6343 022326 012702 023214 MOV BF SEGS, 
6344 022332 004737 022676 JSR PC BF SEQ ;SET UP CMD SEQ. 
6345 022336 004737 006510 JSR PC,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
6346 022342 ENDSUB 
6347 022342 L10025: 
re 022342 104403 TRAP CSESUB 
6350 022344 BGNSUB sSUBTEST 7 - WRITE RETRY. 
6351 022344 TL.7: 
6 ea} 022344 104402 TRAP csBSuUB 
6 
6354 022346 LET R2 := @BFSEQ6 sADR OF CMD SEQ. 
6355 022346 012702 023266 MOV #BF SEQ6, 
6356 022352 004737 022676 JSR PC .BFSEQ ;SET UP CMD SEQ. 
6357 022356 004737 006510 JSR PC,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
6358 022362 ENDSUB 
6359 022362 L10026: 
aoe 022362 104403 TRAP CsESUB 
6361 : 
6362 022364 BGNSUB ;SUBTEST 8 - READ REV RETR?. 
6363 022364 Tr.8: 
eae 022364 104402 TRAP cs6SuUB 
6366 022366 LET R2 := #BFSEQ?7 sADR OF CMD SEQ. 
6367 022366 012702 023320 MOV #BFSEQ7, 
6368 022372 004737 022676 JSR PC ,BFSEQ ;SET UP CMD SEQ. 
6369 022376 004737 006510 JSR PC EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
6370 022402 ENOSUB 
6371 022402 10027: 
td 022402 104403 TRAP CsESuUB 
6374 022404 BGNSUB s;SUBTEST 9 - READ FWD RETRY. 
6375 022404 71.9; 
ete 022404 104402 TRAP CsBSUB 
6378 022406 LET R2 := &BFSEQS sADR OF CMD SEQ. 
6379 022406 012702 023352 MOV eBFSEQ8, 
6380 022412 004737 022676 JSR PC ,.BFSEQ 3SET UP CMD S 
6381 022416 004737 006510 JSR PC, ,EXALL. sEXECUTE CMD Sea ON ALL DEVICES. 
6382 022422 ENDSUB 
6383 022422 L10030: 
te 022422 104403 TRAP CsESUB 
6386 022424 BGNSUB sSUBTEST 10- CLEAN. 
6387 022424 T1.10; 
pee 022424 104402 TRAP CsBSUB 
6390 022426 LET R2 := @BFSEQ9S sADR OF CMD SEQ. 
6391 022426 012702 023404 MOV #BF SEQ, 
6392 022432 004737 022676 JSR PC ,BFSEQ ;SET UP CMD SEQ. 
6393 022436 004737 006510 JSR PC,EXALL FEXECUTE CMD SEQ ON ALL DEVICES. 
6394 022442 ENDSUB 


6295 022442 L10031: 
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022442 


022444 
022444 
022444 


022446 
022446 
022452 


022524 


022530 
022530 
022530 


022532 
022532 
022540 
022544 
022544 
022552 
022556 
022556 
022564 
022564 
022572 
022576 
022576 
022604 
022610 
022610 
022616 
022622 
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104403 


104402 


012702 
004737 
004737 


112737 
004737 


105037 


104403 


013702 
062702 


020237 
001402 
000342 


000773 


105237 


104402 
012737 
004737 


012737 
004737 


112737 


012737 
004737 


012737 
004737 


012737 
004737 


012737 


023426 
022676 
006510 


000001 
006510 


003444 


003334 
000012 


003334 


003447 


104401 
014504 


000012 
014504 


000001 


000011 
014504 


000012 
014504 


104001 
014504 


000011 


Ile 
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003444 


003346 


002316 


003444 
002316 


002316 


003346 


002316 


TEST lL: 


TL Ake 


L10032: 


T1.12: 


BASIC FUNCTIONS. 


BGNSUB 


LET R2 :* @BFSE1LO 
JSR PC,.BFSEQ 
JSR PC ,EXALL 
LET SWBFLG :B= @1 


JSR PC,EXALL 
LET SWBFLG :B= 90 


ENDSUB 


LET R2 


:* DATAWT + #10. 


WHILE R2 NE DATAWT DO 


SWAB 
ENDDO 


-(R2) 


LET T1SWB 


BGNSUB 


LET CMDWRD := #ROR 
JSR PC, VFEXC 


LET CMDPKT+CP.CNT := 


JSR PC, VFEXC 
LET SWBFLG :B= @1 


LET CMDPKT+CP.CNT := 


JSR PC, VFEXC 


LET CMDPKT+CP.CNT := 


JSR PC, VFEXC 
LET CMDWRD := #RDF 


JSR PC, VFEXC 


LET CMDPKT+CP.CNT := 


:B= T1SWB 


+ #1 


#12 


#11 


#12 


#1i 


SEQ 0151 
TRAP CsESuUB 
s;SUBTEST 11 - WTV SWAPPED DATA BYTES. 
TRAP CsbSuU8 
sADR OF CMD SEQ. 
MOV #BFSE10, 
;SET UP CMD SEQ 
;WRITE/VERIFY RECORDS 1 AND 2. 
sENABLE BYTE SWAPPING. 
MOVB #1, SWBFL 
sWRITE/VERIF 1 RECORDS 3 AND 4. 
sDISABLE BYTE SWAPPING. 
CLRB SWBFLG 
TRAP CsESUB 
s INIT WRITE BUFFER POINTER. 
MOV DATAWT,R 
ADD #10. ,R2 
sUNTIL 10 BYTES HAVE BEEN SWAPPED. 
504363: 
CMP R2,DATAW 
BEQ 50437$ 
;SWAP DATA BYTES IN WRITE BUFFER. 
BR 50436$ 
50437$: 
3;SET T1 SWAP BYTES FLAG FOR “CKDATA” SUB 
INCB T1SWB 


;SUBTEST 12 - READ SWAPPED DATA BrTES. 


;CMD IS 


; VERIFY 
3; CHANGE 


; VERIFY 
sENABLE 


;VERIFY 
3; CHANGE 


3; VERIFY 
sCMD IS 


; VERIFY 


TRAP CsBSUB 


READ REV. 
MOV @RDR . CMD 
OOD LENGTH SWAP CRECORD 4). 
BYTE COUNT TO 10. 
#12,CMDP 


MOV 
EVEN LENGTH SWAP (RECORD 3). 
BYTE SWAPPING. 
#1, SWBFL 


MOVB 
;CHANGE BYTE COUNT TO 9 
"@11,.CMOP 


MOV 
OOD LENGTH SWAP (RECORD 2). 
BYTE COUNT TO 10. 
#12,CMDP 


MOV 
EVEN — SWAP (RECORD 1). 


READ F 

MOV #ROF .CMD 
EVEN LENGTH SWAP (RECORD 1). 
sCHANGE BYTE COUNT TO 9, 

MOV #i1,CMDP 
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012737 
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012737 
004737 


104403 


105037 


104432 
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014504 
003444 


000012 
014504 


000011 
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BASIC FUNCTIONS. 


L10033: 


JSR 


LET SWBFLG :B= #0 


PC, VFEXC 


LET CMOPKT+CP.CNT := #12 


JSR 


xc 
LET CMDPKT+CP.CNT 


JSR 
ENDSUB 


PC, VFE 


PC, VFEXC 


LET T1SWB :B= #0 


EXIT 


TsT 


:* #11 


SEQ 0152 
sVERIFY ODD LENGTH SWAP (RECORD 2). 
;DISABLE BYTE SWAPPING. 
CLRB SWBFLG 
sCHANGE BYTE COUNT TO 10. 
#12,CMOP 


MOV 
sVERIFY EVEN LENGTH SWAP (RECORD 3). 
;CHANGE BYTE COUNT TO 9. 
#11,CMOP 


MOV 
;VERIFY ODD LENGTH SWAP (RECORD 4). 


TRAP CsESUB 


;CLEAR T1 SWAP BYTES FLAG 
CLRB TiSwB 


TRAP CSExIt 
«WORD L10017-. 


HARDWARE TESTS M™ 
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022676 
022676 
022702 
022702 
022702 
022706 
022710 
022710 
022712 
022712 
022714 
022714 
022714 
022720 


022722 
022724 
022726 
022730 
022732 
022734 
022736 
022740 
022742 
022744 
022746 
022750 
022752 
022754 
022756 
022760 
022762 
022764 
022766 
022770 
022772 


022774 
022776 
023000 
023002 
023004 


023006 
023010 
023012 


012701 
021227 
001402 
012221 
000773 


012711 
000207 


000000 
177777 
102010 
000001 
000002 


000000 
177777 
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BASIC FUNCTIONS. 
SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 


BFSEQ: 


3 
BFSEQO: 


BFSEQ1: 


BF SEQ2: 


INPUTS: 
OUTPUTS: 


REGISTERS: 


CALLS: 


LET R1 := #CMDSEQ 
WHILE (R2) NE #END DO 


LET (R1)+ := (R2)> 


ENDDO 


LET (R1) 
RTS 


BASIC FUNCTION COMMAND SEQUENCE 


. WORD 


. WORD 


. WORD 


:= #END 


PC 


SCH 
200 
1 


te) 
ORI 
1 

1 

ce) 
SCH 
20 


GES 


R2 = FWA OF COMMAND SEQUENCE. 


:INIT SEQ TABLE saummeene 
Vv 
sWHILE THERE ARE MORE COMMANDS: 
50440$: 
CMP 


BEQ 
sMOVE COMMANDS TO SEQ we ~ 
v 


BR 
50441$: 
;STORE END OF SEQUENCE — 
Vv 
;RETURN. 


;SET CHAR. 200. (1) 
sORIVE INIT. (2) 
3SET CHAR. 20 (3) 
;GET STATUS. (4) 
;SET CHAR. 40. (5) 
sREWIND TWICE. (6) 
sWRITE/VERIFY PAT 1. ¢7) 


SEG 0153 


@CMDSEQ, 


(R2),%EN 
50441$ 
(R2)+,CR 


50440$ 


#END,CRi 


. L1le 
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CZTSHD.P11 06-APR-84 08:4 TEST 1: BASIC FUNCTIONS. SEQ 0154 
6529 023014 000001 1 
6530 023016 104105 WTv ;WTV PAT 2. (8) 
6531 023020 004000 ; DATCNT 
6532 023022 000001 1 
6533 023024 000002 2 
6534 023026 104105 WIV ;WIV PAT 3. (9) 
6535 023030 004000 DATCNT 
6536 023032 000001 1 
6537 023034 000003 3 
6538 023036 104105 wiv ;WIV PAT 4, (10) 
6539 023040 004000 DATCNT 
6540 023042 000001 
6541 023044 000004 4 
6542 023046 104105 wTv ;WwTV PAT 5. (11) 
6543 023050 004000 DATCNT 
6544 023052 000001 1 
6545 023054 000005 5 
6546 023056 104105 wiv ;WTV PAT 6. (12) 
6547 023060 004000 DATCNT 
6548 023062 000001 1 
6549 023064 000006 6 
6550 023066 104105 wtv ;WIv PAT O. (13) 
6551 023070 004000 DATCNT 
6552 023072 000001 
6553 023074 000000 0 
6534 023076 177777 .WORD END 
6556 023100 100011 BFSEQ3: WIM sWRITE TAPE MARK. (14) 
6557 023102 000001 1 
6558 023104 000001 1 
6559 023106 000000 0 
6560 023110 104005 wRT ;WRITE 10 RECORDS. (15) 
6561 023112 004000 DATCNT 
€562 023114 000010 10 
6563 023116 000001 1 
6564 023120 100411 ERS sERASE 10 TIMES. (16) 
6565 023122 000001 1 
6566 023124 000010 10 
6567 023126 000000 0 
6568 023130 100011 WIM ;WRITE TAPE MARK, (17) 
6569 023132 000001 1 
6570 023134 000001 1 
6571 023136 000000 0 
6572 023140 101011 WTR ;W™M RETRY (18) 
6573 023142 000001 1 
6574 023144 000001 1 
6575 023146 000000 0 
6576 023150 177777 .WORD END 
6578 023152 105410 BFSEQ4: SFR sSPACE 2 FILES REV. (19) 
6579 023154 000002 2 
6580 023156 000001 1 
6581 023160 000000 0 ; 
6582 023162 105010 SFF ;SPACE 2 FILES FwD. (20) 
6583 023164 000002 2 


6584 023166 000001 1 
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023170 
023172 
023174 
023176 
023200 
023202 
023204 
023206 
023210 
023212 


023214 
023216 
023220 
023222 
023224 
023226 
023230 
023232 
023234 
023236 
023240 
023242 
023244 
023246 
023250 
023252 
023254 
€23256 
023260 
023262 
023264 


023314 
023316 


023320 
023322 
023324 
023326 
023330 
023332 
023334 
023336 
023340 


000000 
177777 


102010 
000001 


177777 
102010 


00000 
000001 
125401 
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Mle 


TEST 1: BASIC FUNCTIONS. 


BFSEQS: 


BFSEQ6: 


BFSEQ7: 


. WORD 


. WORD 


;SPACE 2 FILES REV. 


sSPACE 2 FILES Fwd. 


sREWIND. 


;SPACE 7 RECOROS FWD. 


;SPACE 7 RECORDS REV. 


;SPACE 7 RECORDS FWD. 


;SPACE 7 RECORDS REV. 


sREWIND. 


;WRITE. 


sWRITE RETRY. 


sREAD REV. 


sREAD NEXT REV. 


sREAD NEXT FWD. 


(21) 


(22) 


(23) 


(24) 


(25) 


(26) 


(27) 


(28) 


(29) 


(30) 


SEQ 0155 


HARDWARE 
SHD .P 


czT 


11 


023342 
023344 
023346 
023350 


023352 
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004000 
000001 


000001 
177777 


177777 
101012 


000000 


177777 


104401 


84 
TEST 


08 
1 


Nile 


DATCNT 


51 PAGE 158 
BASIC FUNCTIONS. 
. WORD 
BF SEQ8: 
. WORD 
BFSEQ9: .WORD 
. WORD 
BFSE10: 
. WORD 
-EVEN 
ENDTST 
L10017: 


;READ FWD. 


sREAD PREVIOUS FWD. 


;READ PREVIOUS REV. 


;CLEAN. 


;REWIND 


sEND OF SEQUENCE. 


(34) 


(35) 


(36) 


(37) 


(38) 


;sWRITE/VERIFY EVEN LENGTH. 


sWRITE/VERIFY ODD LENGTH. 


TRAP 


SEQ 0156 


(39) 


(40) 


CsETST 


ae 
LN 


| 
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CZTSHO.P11 06 -APR 84 08:4 TEST 2: DATA RELIABILITY. SEQ 0157 
6684 .SBTTL TEST 2: DATA RELIABILITY. 
6685 
6080 tee 
ae di 3; TEST TO CHECK THE DATA RELIABILITY OF THE 1504. 
6688 -- 
6689 023452 6BGNTST 
$630 023452 T2:: 
6691 
6692 023452 LET RANDOM :B- 1 +SET THE RANDOM OPERATIONS FLAG. 
6693 023452 112737 000001 003441 MOvB #1,RANOO 
6694 023460 LET EXPBOT :B- 00 sCLEAR EXPECT BOT FLAG. 
6695 023460 105037 003440 CLRB exPeor 
6696 023464 LET R2 :* ODATCNT - 1 ;SET UP THE RECORD LENGTH MASK, 
669" 023464 012702 004000 MOV eOATCNT, 
6698 023470 005302 DEC R2 
6699 023472 LET LENMSK ;* COMP R2 sALLOW MAXIMUM BUFFER, 
67 023472 010237 003356 MOV R2,LENMS 
6701 023476 005137 003356 COM LENMSK 
6702 023502 004737 006444 JSR PC,SETCH sCMO 1 = SET CHARACTERISTIC. 
6703 023506 IFB STAFLG NE 00 THEN VIF STARTING THEN: 
6704 0623506 105737 003452 TSTB STAFLG 
6705 023512 001404 BEQ 50442$ 
6706 023514 004737 006470 JSR PC,SETRW 3CMD2 «REWIND 
6707 023520 LET STAFLG :B= #0 sCLR START FLAG. 
6708 023520 105037 003452 CLRB STAFLG 
6709 023524 ENDIF 
6710 023524 504423: ws 
6711 023524 LET (R1L)> :* OwTv sCMD3 = WRITEY VERIFY. 
6712 023524 012721 104105 MOV owlv CRI 
6713 023530 LET (R1)> == ODATCNT ;SET BRF TO MAX FOR PATTERN GENERATION. 
6714 023530 012721 004000 MOV @DATCNT, 
6715 023534 LET R2 :* COMP ORNOPSC 
6716 023534 012702 177740 MOV ORNOPSC, 
6717 023540 005102 COM R2 
6718 023542 LET (R1)* s* RO 331 OPERATIONS. 
6719 023542 010221 MOV R2,(RL)- 
6720 023544 LET (RL)+ := @RANP ;RANDOM PATTERN, 
6721 023544 012721 000007 MOV @RANP CR 
6722 023550 REPEAT sREPEAT TO EOT: 
6723 023550 50443$: 
6724 023550 WHILE Ri LT @SEQEND DO sFILL SEQ TRL WITH RANDOM CMDS. 
6725 023550 504443: 
6726 023550 020127 003550 CMP R1, @SEQE 
6727 023554 002012 BGE 504458 
6728 023556 LET RANS :* RANS «+ RANB 
6729 023556 063737 003360 003362 add RANB ,RAN 
6730 023564 LET RO :* RANS CLR.BY 0177741 3R2 = RANDOM @ (0 - 36). 
6731 023564 013702 003362 MOV RANS Ro 
6732 023570 042702 177741 BIC el? 7ai, 
6733 023574 004772 023732 JSR PC,@RANCMD(R2 ) 3SET UP A RANDOM CMD - BAF. 
6734 023600 ENDDO 
6735 023600 000763 BR 504445 
6736 023602 : 504453; 
6737 023602 LET (RL) :* END sSTORE END OF SEQUENCE CODE IN TABLE. 
6738 022602 012711 177777 MOV @—END, RL 
6739 023606 004737 006510 JSR PCE XALL 1GO0 EXECUTE ALL CMDS IN SEQUENCE TABLE, 
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023726 
023730 


012701 


005702 
001753 
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000240 


000240 
004737 


004737 


012737 
005137 


013737 


012711 
004737 


105037 
112737 


012701 
004737 


012711 
004737 


104432 
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003460 


003450 


025156 


023/72 


177740 
003464 


003464 


177777 
006510 


003450 
000001 


003460 
0064 70 


177777 
006510 
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003464 


003474 


003443 


C14 
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EST 2: DATA RELIABILITY, 


LET Rl :* OCMDSEQ 
UNTIL R2 NE 00 


LET 


ALLEOT :B= ALLEOT «+ #1 


PC, TSwEOT 


PC ,RANR 
CMDSEQ:4 :* O COMP @RNOPSC 
CMDSEQ+14 :* CMDSEQ-+4 
(R1) :* SEND 


PC,EXALL 
ALLEOT :B= 00 


RPTFLG :B* 1 
R1 :* @CMDSEQ 


PC, SETRW 
(R1) :* END 


PC,EXALL 
TST 


SEQ 0158 

sINIT CMD SEQ TBL POINTER, 

MOV @CMDSEQ, 
sREPEAT UNTIL EOT IS REACHED 

TST Re 

BEQ 5044 5% 
sFLAG ALL UNITS @ EOT 

ALLEOT 


sWRITE ONE RECORD BEYOND EOT ON ALL UNIT 
3SO0 THAT SHORTER READ STOP DISTANCE 
sSHALL POSITION HEAD IN CLEAN IRG GAP 
sREAD REV THAT EXTRA REC TO RE-POSITION 
sSET UP READ REV/FWO CMOS, 

3@ OF RECORDS FOR READ REV. 


MOV ORNOPSC, 
COM CMOSEQ-4 

3@ OF RECORDS FOR READ —- 
CMDSEQ+-4 


sSTORE END OF SEQUENSE cove IN SEQ TABLE 
MOV @END.CR1 
3GO EXECUTE READ REV/FwO OF LAST N RECOR 
sCLEAR ALL UNITS @ EOT FLAG 
ALLEOT 


CLRB 
sREQUEST PERFORMANCE REPORT DURING REWIN 


MOVB @1,RPTFL 
sINIT SEQ TBL POINTER, 

MOV 6<MDSEQ, 
sSTORE REWIND IN SEQ TBL, 
sSTORE END IN SEQ TBL, 


MOV SEND, CR1 
sEXECUTE REWIND CMD ON ALL UNITS 


TRAP CsExIt 
«WORD L10034-. 
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023740 
023742 
023744 
023746 
023750 
023752 
023754 
023756 
023760 
023762 
023764 
023766 
023770 


023772 
023772 
023776 
023776 
024002 
024002 
024010 
024010 
024014 
024020 
024020 
024022 
024022 
024026 
024026 
024032 
024032 
024036 
024036 
024040 
024040 
024044 
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024060 
024046 
024046 
024046 

24046 
024046 
024046 
024046 
023772 
023772 
023772 
023772 
023772 
023772 
023772 
023772 


012721 
012721 
063737 


013702 
042702 


010221 
012721 
012721 
012721 
010221 


Ole721 
000207 


104401 
004000 
003362 


003360 
177740 


Ob APR ? 


003360 


e518) barn BEL ERB tt cry. 


RANCMD: 


RANRD: 


D134 


SEQ 0159 
ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST. 
RANWV ;sWRITE/VERIF Y. 
RANWR sWRITE. 
RANWR ;WRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANWR sWRITE. 
RANRD ;READ. 
RANRD sREAD. 
RANRD ;READ. 
RANRD sREAD. 
RANRD sREAD. 
RANRD ;READ. 
RANRD sREAD. 
RANRD sREAD. 
SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
INPUTS: 
OuTPUTS: 
REGISTERS: Ro 
CALLS: 
LET (R1)>+ := ORDOR :STORE READ REV CMD. 
MOV @ROR CRI 
LET (R1)+ := SDATCNT 3;SET BRF TO MAX FOR READ RANDOM LENGTHS. 
MOV SDATCNT, 
LET RANB := RANB + RANS 
ADD RANS ,RAN 
LET R2 := RANB CLR.Bt ORNOPSC 
MOV RANB ,R2 
BIC @RNOPSC, 
LET (R1)>+ s+ Re 3SET RANDOM ® OF OPERATIONS. 
MOV R2,CR1L)- 
LET (R1L)>+ := @RANP ;RANDOM PATTERN. 
MOV @RANP CR 
LET (R1L)>+ :+ @ROF sSTORE READ FWO CMD. 
MOV OROF .CRL 
LET (CRL)+« += @DATCNT 3;SET BREF TO MAx TO READ RANDOM LENGTHS. 
MOV SDATCNT, 
LET (RL)>e = RO 3SET RANDOM @ OF OPERATIONS. 
MOV RZ,CRL- 
LET (R1L)>+ := @RANP ;RANDOM PATTERN, 
MOV SRANP, R 
RTS PC 


E13 
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CZTSHD.P11 06-APR-84 08:49 TEST 2: DATA RELIABILITY. SEQ 0160 
6830 3 SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 
6831 3 INPUTS: 
6832 3 OUTPUTS: 
6833 5 REGISTERS: 
6834 3 CALLS: 
6835 
6836 024046 RANWR: LET (R1)+ := @wWRT sSTORE WRITE CMD. 
6837 024046 012721 104005 MOV @WRT,CR1 
6838 024052 004737 024072 JSR PC,RANW ;STORE BREF, & OF OPERATIONS, PATTERN. 
6839 024056 000207 RTS PC 
6840 
6841 
6842 
6843 
6844 
6845 F SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
6846 3 INPUTS: = 
6847 3 OUTPUTS: 
6848 ; REGISTERS: 
6849 3 CALLS: 
6850 
6851 024060 RANWV: LET (R1L)>+ := @wTv sSTORE WRITE/VERIFY CMD. 
6852 024060 012721 104105 MOV wv. CRL 
6853 024064 004737 024072 JSR PC,RANW sSTORE BREF, # OF OPERATIONS, PATTERN. 
6854 024070 000207 RTS PC 
6855 
6856 
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024072 
024072 


024076 
024076 
024104 
024104 
024110 
024114 
024114 
024116 
024116 
024122 


024124 
024124 
024124 


012721 


063737 


013702 
042702 


010221 


012721 
000207 


104401 


004000 
003362 


003360 
177740 
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PAGE 
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TEST 2: DATA RELIABILITY. 


RANW: 


L10034; 


SUBROUTINE TO STORE BRF, # OF OPERATIONS, PATTERN IN COMMAND 


SEQUENCE TABLE FOR WRITE AND WRITE/VERIF Y COMMANDS. 


INPUTS: 

OUTPUTS: 
REGISTERS: Re 
CALLS: 


LET (R1)+ := @DATCNT 


LET RANB ;= RANB + RANS 
LET R2 := RANB CLR.BY #RNOPSC 


LET (R1)> :- R2 
LET (R1)+ := @RANP 
RTS PC 

EVEN 

ENOTST 


SEG 9161 


sSET ERF TO MAX FOR PATTERN GENERATION. 


MOV 
sRANDOM BRF WILL BE GENERATED F 


ADD 
MOV 
BIC 
3SET RANDOM @ OF OPERATIONS. 
MOV 


_ sRANDOM PATTERN. 


MOV 
sRETURN. 


TRAP 


@DATCNT, 


OR EACH R 


RANS ,RAN 


RANB ,R2 
@RNOPSC, 


R2,(R1L)- 
#RANP CR 


CsETST 


HARDWARE 
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CZTSHD.P11 


©88o 
688 
6888 
6889 
6890 
6891 
6892 
6893 


024126 
024126 


024126 
024126 
024134 
024134 
024140 
024140 
024144 
024146 
024146 
024152 
024156 
024162 
024166 
024166 
024172 
024172 
024172 
024172 
024172 
024176 
024200 
024204 
024204 
024206 
024206 
024206 
024212 
024216 
024216 
024222 
024222 
024224 
024226 
024226 
024232 
024234 
024236 
024240 


024244 
024244 
024250 
024254 
024254 
024260 


112737 
105037 


012702 
005302 


010237 
005137 


105037 


020127 
002003 
004737 


000772 


012711 
004737 


012701 


005702 
001762 


105237 
000240 
000240 
000240 
004737 


105037 
004737 


012711 
004737 


06-APR 34 08:49 


000001 00344; 
003440 
004000 
003356 
003356 
006444 
006470 


003452 


003550 
024046 


177777 
006510 


003460 


003450 


025156 


003450 
006470 


177777 
006510 
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TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 


. SBTTL 


see 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 


T3:: 


G13 
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TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 


BGNTST 


LET RANDOM :B=- #1 
LET EXPBOT :3= 00 
LET R2 :* @DATCNT - a1 


LET LENMSK := COMP Ro 


JSR PC,SETCH 

JSR PC,SETRW 

LET STAFLG :B= #0 
REPEAT 


WHILE R1 LT #SEQEND DO 


JSR PC,RANWR 
ENDDO 
LET (R1) := #END 


JSR PC, EXALL 
LET R1 := @CMDSEQ 


UNTIL Re NE #0 


LET ALLEOT :B= ALLEOT + @1 


JSR PC, TSWEOT 


LET ALLEOT :B= #0 


JSR PC,SETRW 
LET (R1) := #END 


JSR PC, EXALL 


SEG 0162 
;SET THE RANDOM OPERATIONS FLAG. 
vB #1,RANDO 
sCLEAR EXPECT BOT FLAG. 
CLRB EXPBOT 
;SET UP THE RECORD LENGTH MASK. 
MOV #DATCNT, 
DEC Re 
sALLOW MAXIMUM BUFFER. 
MOV R2.LENMS 
LENMSK 


COM 
;CMD 1 = SET CHARACTERISTIC. 
3 CMD2 =REWIND 
;CLEAR START FLAG 
sREPEAT TO EOT. 


504463: 
sWHILE THERE IS MORE ROOM IN SEQ TABLE: 


CLRB STAFLG 


50447$: 
CMP R1, @SEGE 
BGE 50450$ 
sSTORE A WRITE CMD IN SEQUENCE TABLE. 
BR 50447$ 
50450$ 
sSTORE END OF SEQUENCE “cove IN TABLE. 
SEND, CR1 


MOV 
sEXECUTE ALL CMOS IN _ TBL ON UNITS. 
sINIT SEQ TEL POINTER 
eCMOSER, 


MOV 
sREPEAT UNTIL EOT IS REACHED 
TST R2 


BEQ 50446 $ 
sSET ALL UNITS @ EOT FLAG 
INCB ALLEOT 


sWRITE ONE RECORD BEYOND EO’ ON ALL UNIT 
3SO THAT SHORTER READ STOP DISTANCE 
;SHALL POSITION HEAD IN CLEAN IRG GAP 
sREAD REV THAT EXTRA REC TO RE-POSITION 
sCLEAR ALL UNITS @ EOT *LAG 

CLRB ALLEO?T 
sSTORE REWIND IN SEQ TBL, 
sSTORE END IN SEQ TBL, 


MOV #END CRE 
sEXECUTE REWIND CMD ON S&L UNITS 


HARDWARE TESTS MACY11 30( 1040) 
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6942 
©0943 
6944 
6945 
6940 
6947 
6948 
6249 
6950 
6951 
©952 


024264 
024204 
624266 


024270 
024270 
024270 
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104432 
000002 


104401 


06-APR-84 08:51 PAGE 


TEST 3: 


WRITE COMPATABILITY/WRITE UTILITY. 


L10035; 


165 


EXIT 


-EVEN 
ENDTST 


H15 


TsT 


TRAP 
. WORD 


TRAP 


SEQ 0163 


CSExIT 
L10035-. 


CSE TST 
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CZ2TSHD.P11 


024272 
024272 


024272 
024272 
024300 
024300 
024306 
024312 
024316 
024316 
024322 
024322 
024326 
024326 
024332 
024332 
024336 
024336 
024342 
024342 
024346 
024352 
024352 
024356 
024356 
024362 
024362 
024366 
024366 
024372 
024372 
024376 
024376 
024402 
024402 
024406 
024412 
024412 


024416 
024416 
024420 


024422 
024422 
024422 


112737 
eat 
004737 
105037 
012721 
012721 
012721 
012721 


012711 
004737 


105237 
012701 
012721 
012721 


012721 
012721 


012711 
004737 


105037 


104432 
000002 


104401 
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000001 003441 
000001 003440 
006444 
006470 
003452 
104001 
004000 
077777 
000007 


177777 
006510 


003450 
003460 
104401 
004000 
077777 
000007 


177777 
006510 


003450 


TEST 3: 


06 -APR-84 08:51 PAGE 


T13 


166 
WRITE COMPATABILITY /WRITE UTILITY. 


-SBTTL TEST 4; 


READ COMPATABILITY/READ UTILITY. 


aed 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 


T4:: 


L 10036: 


BGNTST 


LET 
LET 
JSR 
JSR 
LET 
LET 
LET 
LET 
LET 
LET 


JSR 
LET 


LET 
LET 
LET 
LET 
LET 
LET 


JSR 
LET 


EXIT 


RANDOM :B=- #1 
EXPBOT :B= #1 
PC; SE TRU 

STAFLG :B= 90 
(R1)+ := ORDF 
CR1)+ := @DATCNT 
CR1L)+ s= #77777 
CR1)+ := @RANP 
(R1) := @END 


PC,EXALL 
ALLEOT :B= ALLEOT + #1 


R1 := @CMDSEQ 
(R1)+ := @ROR 
CR1)+ :* @DATCNT 
CR1)+ :* #77777 
(R1)+ := @RANP 
(RL) :* END 
PC,EXALL 

ALLEOT :B= #0 


TST 


EVEN 
ENDTST 


SEQ 0164 

;SET THE RANDOM OPERATIONS FLAG. 

MOVB 1,RANDO 
3SET EXPECT BOT FLAG. 

MOVB #1,ExPBO 
sCMD 1 = SET CHARACTERISTIC. 
3CMD2=REWIND. 
;CLEAR START FLAG 

CLRB STAFLG 


:CMD3 = READ FORWARD. 
@ROF ,CR1 


MOV 
sSET LENGTH TO MAX FOR UNKNOWN LENGTHS . 
MOV @DATCNT, 
;SET RECORD COUNT TO mig WHOLE TAPE. 


#77777,C¢ 
sPATTERN = RANDOM. 
@RANP ,CR 


MOV 
sSTORE END OF SEQUENCE CODE IN TABLE. 
MOV SEND .CR1 
sEXECUTE ALL CMDS IN SEQ TBL ON ALL UNIT 
sFLAG TO ALLOW ALL UNITS AT EOT TO READ 


INCB ALLEOT 
sINIT CMD SEQ TBL POINTER. 
V @CMDSEQ, 
;CMD1 = READ REVERSE. 
MOV @ROR, CRI 


3SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
MOV #DATCNT, 
sRECORD COUNT = MAX FOR WHOLE TAPE. 


MOV @77777,.¢ 
sPATTERN = RANDOM. 
MOV @RANP CR 
;STORE END OF SEQUENCE CODE IN TABLE. 
MOV @END,.CR 
3GO EXECUTE READ REV. OF ENTIRE TAPE. 
;CLEAR ALL UNITS @ EOT FLAG 


CLRB ALLEOT 
TRAP CSEXIT 
. WORD L10036-. 
TRAP CsETst 
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7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 


024424 
024424 


024424 
024424 
024430 
024430 
024436 
024436 
024444 
024450 
024450 
024456 


024614 
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105037 
112737 


113737 
004737 


013737 


012702 
004737 
004737 
004737 
004737 
004737 
004737 
004737 


005037 
105037 
012701 


021127 
001574 
022711 
001024 


062701 
012137 
022137 
001003 


062701 
000760 


005237 
012701 
005337 
001751 


062701 
000772 


003441 
000001 


002214 
006444 


002216 
002220 
025134 
025134 
025134 
025134 
025134 
025134 
025134 
003370 
003452 


003460 


177777 
000040 


000002 
003372 
003370 


000002 
003370 
003460 
003372 


000010 
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003440 
003445 


003462 


. SBTTL 


PAGE 167 


J15 


TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


$e 
; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


TS:: 


3$: 


1$: 


2s: 


BGNTST 


LET RANDOM :B= #0 
LET EXPBOT :B= #1 


LET 


IRE :B= PIRE 


JSR PC,SETCH 


LET CMDSEQ+2 


LET R2 


:= #CMDD 


PC,.PTCMDS 
PC,.PTCMDS 
PC,PTCMDS 
PC,PTCMOS 
PC,PTCMDS 
PC,PTCMDS 
PC,PTCMDS 


LET JLOOP := #0 
LET STAFLG :B= #0 


LET R1 


WHILE (R1) NE #END 00 


CMP = @JMP.C,CR1) 

BNE 6% 

LET R1 :* RL + #2 

MOV (R1)+,JLOC 

CMP (R1L)+,JLOOP 

BNE 1$ 

LET R1 := R1 + #2 

BR 3$ 

LET JLOOP ;= JLOOP 
~ LET R21 := #CMDSEQ 
“DEC wJLOC 

BEQ 3% 


LET RL :* R1 


BR 


:* &CMDSEQ 


es 


:= CHAR 


+ #10 


¢ #1 


sCLEAR RAMDOM MODE FLAG. 
CLRB RANDOM 
;SET EXPECT BOT FLAG. 
#1,EXxPBO 


MOVB 
sMOVE INHIBIT RFC ERROR REPORT FLAG. 
MOVB PIRE , IRE 
;CMD 1 = SET CHARACTERISTIC. 
sMOVE CHAR CODE FROM P TBL TO SEQ TBL. 
MOV CHAR ,CMD 
sR2 POINTS TO CMD2 IN vg P TABLE. 
Vv 


#CMOD .R2 
sMOVE CMD 2 FROM P TBL TO SEQ TBL. 
sMOVE CMD 3 FROM P TBL TO SEQ TBL. 
sMOVE CMD 4 FROM P TBL TO SEQ TBL. 
sMOVE CMD 5 FROM P TBL TO SEQ TBL. 
sMOVE CMD 6 FROM P TBL TO SEQ TBL. 
sMOVE CMD 7 FROM P TBL TO SEQ TBL. 
sMOVE END CMD FROM P TBL TO SEQ TBL. 
;CLEAR JMP CMD LOOP COUNT. noe 
L 


CLR 
;CLEAR START FLAG 

CLRB STAFLG 
; INIT SEQUENCE TABLE POINTER. 


MOV #CMDSEQ, 
sWHILE THERE ARE CMOS LEFT IN SEQUENCE 7 
504515: 
cmMP CR1),%EN 
BEQ 50452$ 
31S THIS A JUMP CMD? 
:BR IF NOT. 
sPOINT TO BRF. 
ADD #2,R1 
;SAVE BRF (LOCATION). 
sHAS LOOP COUNT BE SATISFIED? 
3;IF NOT, JMP AGAIN. 
;IF SO, ADJUST SEQ POUNTER 
ADD #2,R1 
;AND GO TO NEXT COMMAND. 
sUPDATE THE LOOP COUNT. 
INC JLOOP 
; INIT CMD SEQ TABLE POINTER. 
MOV #CMDSEG, 


;DECR LOCATION COUNTER. 
3IF THIS IS THE RIGHT LOCATION TO JMP TO 
;IF NOT, UPDATE SEQ POINTER TO NEXT CMD. 


ADD #10,R1 
300 IT AGAIN, 


SEG 0165 


HARDWARE 
CZTSHD.P11 


024616 
024622 
024624 
024624 
024630 
024630 
024634 


025010 


06 - APR 


022711 
001026 


062701 
011137 
012727 
000000 
013727 
000000 
005367 


001375 
005367 


004737 
012702 
004737 
026527 
001426 


032737 
001406 


032765 
001001 


005002 


000411 


032765 


TESTS a he Be hm de 


000020 
000004 
003366 
000001 
002116 
177772 
177756 
003366 


000004 
007452 


003340 


007344 
007004 


003346 
015776 


016060 
000001 
015452 
002532 
000400 


000002 


000001 
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003342 


100017 


177777 


003346 


003426 


003426 


K135 
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TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0166 
6$: CMP #OLyY.C,CR1) ;DELAY? 
BNE 4$ ;BR IF NOT. 
LET R1 := RL + 04 ;R1 = LOCATION OF N COUNT. 
ADD #4,R1 
LET TIMES := (R11) ;SAVE N COUNT. 
MOV (R1),TIM 
7$: DELAY 1 3;GO TO SUPER-WAIT 1 MSEC. 
MOV #1,°PC)- 
. WORD f?) 
MOV LSOLY,(P 
. WORD 19) 
DEC -6(PC) 
BNE .-4 
DEC -220PC) 
BNE .-20 
DEC TIME2 
BNE 7$ 
LET R1 := R1 + #4 sPOINT TO NEXT CMD. 
ADD #4,R1 
BR 3$ ;GO CHECK NEXT CMD. 
4$: JSR PC,SETUP :GO SETUP THE COMMAND BLOCK 
WHILE NCNT LT NCNT1 DO ;WHILE THERE a oy REMAINING: 
CMP NCNT ,NCN 
BGE 50454$ 
JSR PC,CMDAC sSTORE CMD ASCII IN ERROR MSG. 
JSR PC,EXSUB ; ISSUE CMD TO ALL,AWAIT INTS,CHECK STATU 
IF CMDOWRD EQ #GES THEN sIF CMO IS GET STATUS THEN: 
CMP CMOWRD , + 
BNE 50455$ 
JSR PC,PRXST sPRINT EXTENDED STATUS REGISTERS. 
ENDIF 
504555: 
JSR PC, CKHAE ;CHECK HALT AFTER EACH CMD FLAG. 
LET R2 := #1 ;SET ALL UNITS AT BOT/EOT. 
MOV #1,.R2 
JSR PC,FIRSTU sF IND FIRST UNIT. 
WHILE DEVTBL(RS) NE #END DO ;WHILE THERE wang Psa 
CMP DEVTBLCR 
BEQ 504575 
IF #MOD.CO SETIN CMDOWRD THEN ;IF CMD IS REVERSE THEN: 
BIT #M0D .CO, 
BEQ 50460$ 
IF #xO.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT THEN: 
BIT #x0.BOT, 
BNE 50461$ 
LET R2 := #0 ;CLEAR —— FLAG, 
ENDIF 
50461$: 
ELSE sELSE IF CMD IS NOT REVERSE: 
BR 5046025 


50460 
IF #xO.EOT NOTSETIN EOTFLGCRS) oR #CMU.CO NOTSETIN CMOWRD THEN 
BIT #x0 .EQT, 
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CZTSHD.P11 06-APR-84 08:49 TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0167 


7121 025016 001404 BEQ 50463$ 
7122 025020 032737 000001 003346 BIT #CMD.CO, 
7123 025026 001001 BNE 50464$ 
7124 025030 50463$: 

7125 ;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
7126 025030 LET R2 := #0 ;CLEAR EOT/BOT FLAG. 

7127 025030 005002 CLR R2 

7128 025032 ENDIF 

7129 025032 504645; 

7130 025032 ENDIF 

7131 025032 504625: 

7132 025032 004737 015520 JSR PC,NEXTU sF IND NEXT UNIT 

7133 025036 ENDDO ; 

7134 025036 000746 BR 50456$ 


50457$: 
7136 025040 IF R2 EQ #1 THEN ;IF ALL UNIT ARE AT EOT/BOT THEN: 
7137 025040 020227 000001 CMP R2,#1 
7138 025044 001016 BNE 504655 
7139 025046 LET NCNT1 := NCNT + #1 sFORCE TERMINATION OF COMMAND. 
7140 025046 013737 003340 003342 MOV NCNT,NCN 
7141 025054 005237 003342 INC NCNT1 
7142 025060 LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS AT EOT/BOT TO ALLOW VER 
7143 025060 105237 003450 INCB ALLEOT 
7144 025064 IF CMDLG EQ #2 THEN ;WHEN WRITING IS CURRENT COMMAND 
7145 025064 023727 003354 000002 CMP CMOLG, #2 


BNE 50466 5$ 
7147 025074 004737 025156 JSR PC, TSWEOT ;GO WRITE/READ REV ONE RECORC BEYOND EOT 
7148 025100 ENDIF 
7149 025100 504665: 
7150 025100 ELSE 
7151 025100 000402 BR 50467$ 
7152 025102 50465: 
7153 025102 LET ALLEOT :B= #0 ;WHEN NOT ALL @EOT, CLEAR FLAG 
7154 025102 105037 003450 CLRB ALLECT 
7155 025106 ENDIF 
7156 025106 50467$: 
7157 025106 LET NCNT := NCNT «+ #1 sUPDATE RECORD COUNT. 
7158 025106 005237 003340 INC NCNT 
7159 025112 LET PCMDWO := CMDWRD ;SAVE PREVIOUS COMMAND WORD. 
7160 025112 013757 003346 003352 : MOV CMOWRD .P 
7162 025120 000671 BR 50353$ 


7161 025120 ENDDO 

5045438: 
7164 025122 004737 014402 JSR PC, VF YDAT ;IF LAST CMD WAS A WRITE VERIFY, THEN GO 
7165 ;VERIFY THE LAST N RECORDS OF DATA. 
7166 025126 ; ENDDO 
7167 025126 000601 BR 50451$ 
7168 025130 504525: 


7170 025130 EXIT TsT 
7171 025130 104432 TRAP CSExIT 
7172 025132 000130 «WORD L10037-. 


M13 
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CZTSHD..711 06 -APR-84 08:4 TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0168 
7178 
7179 : SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
7180 3 THE COMMAND SEQUENCE TABLE. 
7181 3 INPUTS: R2 = POINTER TO SOFT "P” TABLE 
7182 r OUTPUTS: 
7183 3 REGISTERS: R3. 
res F CALLS: 
7186 025134 PTCMDS: LET R3 := (R2)+ - #1 SHIFT +1 3R3 = COMMAND TABLE INDEX. 
7187 025134 012203 MOV (R2)+,R3 
7188 025136 005303 DEC R3 
7189 025140 006303 ASL R3 
7190 025142 LET (R1)+ := CMDTBLC(R3) sMOVE COMMAND WORD. 
7191 025142 016321 003562 MOV CMOTBLC(R 
7192 025146 LET (R1)+ := CR2)> ;MOVE # OF BYTES. 
7193 025146 012221 MOV CR2)+,CR 
7194 025150 LET (R1)+ := (R2)> sMOVE # OF OPERATIONS. 
7195 025150 012221 MOV CR2)+,CR 
7196 025152 LET (R1)+ := CR2)> sMOVE PATTERN CODE. 
7197 025152 012221 : MOV CR2)+,CR 


7198 025154 000207 RTS PC 


N13 
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CZTSHD.P11 06 -APR-84 08:49 TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0169 
7199 
7200 ; SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
7201 ; INPUTS: 
7202 ; OUTPUTS: 
7203 ; REGISTERS: 
i : CALLS: CMDAC ,EXSUB , CKHAE 
7206 025156 000240 TSWEOT: NOP 
7207, 025160 000240 NOP 
7208 025162 004737 007004 JSR PC,EXSUB ;WRITE ONE RECORD BEYOND EOT 
7209 025166 004737 016060 JSR PC,CKHAE 350 THAT READ SHORTER STOP DISTANCE 
7210 ;SHALL POSITION HEAD IN CLEAN IRG GAP 
7211 025172 LET PCMDWD := CMDWRD ;REPOSITION TAPE 
7212 025172 013737 003346 003352 MOV CMDWRD ,P 
7213 025200 LET CMDWRD := #RDR ;BEFORE EXTRA RECORD 
7214 025200 012737 104401 003346 MOV #RDR CMD 
7215 025206 LET CMOLG := #4 ;BY READING REVERSE 
7216 025206 012737 000004 003354 MOV #4,CMDLG 
7217 025214 LET CMDPKT := CMOWRD CLR.BY #BRF.C 
7218 025214 013737 003346 002310 MOV CMOWRD .C 
7219 025222 042737 004000 002310 BIC eBRF .C.C 
7220 025230 LET CMDSAV := CMDPKT ;THAT RECORD TO ALLOW 
7221 025230 013737 002310 003350 MOV CMDPKT,C 
7222 025236 LET CMDPKT+CP.ADL := DATARD ;NEXT COMMAND IN THE 
7223 025236 013737 003336 002312 MOV DATARD.C 
7224 025244 004737 007344 JSR PC,CMDAC ;TABLE TO BE EXECUTED 
7225 025250 004737 007004 JSR PC,ExXSUB 
7226 025254 004737 016060 JSR PC, CKHAE 
7227 025260 000207 RTS PC 
7228 
7229 ; 
7230 EVEN 
7231 
7232 025262 ENDTST 
7233 025262 L10037: 
pees 025262 104401 2 TRAP CsETST 


7236 025264 ENDMOD 


PARAMETER CODING 
CZTSHD.P11 


025264 


025310 
025310 


025312 
025327 


025336 
025336 


B14 
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06 -APR 84 08:49 TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 91769 


013004 


051524 
126 


. TITLE PARAMETER CODING 
-SETTL HARDWARE PARAMLIER CODING SECTION 
BGNMOD 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 


BGNHRD 
LSHARD:: 
GPRMA TS4ADR 0,0, 160002 ,177564,1ES 


«WORD . 10040 -. $~ 


. WORD 1 $CODE 

. WORD TS4ADR 

. WORD TSLOL IM 

. WORD TSHILIM 
GPRMOD TS4vCT, 2,0, 777,60, 7 76,165 


. WORD Tee 
. WORD TS4vCT 
. WORD 777 


«WORD T$LOL IM 
. WORD TSHILIM 


EXIT HRD 
WORD TSCODE 
»NLIST BEX 
051123 040440 TS4ADR: .ASCIZ /TSSR ADDRESS 
041505 047524 TS4vCT: .ASCIZ /VECTOR, 
LIST BE x 
EVEN 
ENDHRD 


EVEN 
i 10040; 


PARAMETER CODING 


C2TSHO .P 


“57? 
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025336 
025336 
025340 


025340 
025340 
025342 


000501 


000130 
026102 
000001 


000130 
026121 
000400 


001130 
026150 
000001 


001130 
026174 
000400 


002130 
026225 
000001 


004024 


002130 
026246 
000400 


0031350 
026276 
000001 


003130 
026321 
000400 


004130 
026352 
000001 


127044 


MACY11 3001046) 
SOF TWARE PARAME 


06 -APR 84 ie) aa 73 


C14 


» SECTION 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


THE SOS TWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 


BGNSF T 


L$SOFT:: 


GPRML 


GPRML 


GPRML 


GPRML 


GPRML 


XFERT 
GPRML 


NEXTSP: GPRML 


UPRML 


GPRM 


XFERF 


i 
3 
a 
: 
s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; 
i 
i 


CLRM,O,1,¥ES 


RRVM,0,400, YES 


HAEM,2,1,7ES 


RCVERM,2,400, ES 


TRECM,4,1,1ES 


NE XTSP 
BADTM,4,400, "FS 


DINTM,6,1,7ES 


IREM,6,400, 1ES 


CHGM, 10,1, YES 


ENDSP 1 


SEQ O171 


-WORD 110041 -. $5 


. WORD TSCODE 
.WORD CLRM 
WORD 1 

. WORD TSCOOE 
.WwORD RRVM 
-WORD 400 

. WORD TSCODE 
. WORD HAEM 

. WORD 1 

. WORD TSCODE 
. WORD RCVERM 
.WORD 400 
WORD TSCOCE 
. WORD IRECM 
.WORD 1 

. WORD TSCOODE 
.WORD TSCODE 
.WORD B6ADTM 
.~ WORD 400 

. WORD TSCODE 
~ WORD OINT™ 
. WORD L 
~WORD TscoodEe 
WORD IREM 

~ WORD 400 
~WORD Tscoode 
~ WORD CHM 

~ WORD 4 
WIRD TsCO0E 


Coton Be ie 


CZ TSHD.P 


025432 
025432 
025434 
025436 


006032 
026376 


077777 


012052 
026463 


000001 
077777 
016052 
026463 
000017 
000000 
000010 


017052 


D14 
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GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


» GPRMD 


GPRMD 


GPRMD 


CHARM, 14,0,377,0,777,VES 


CMD2M,16,0,37,1,33, ES 


BPCRM,20,0, -1.1,UATCNIT, YES 


NUMBM,22.0,.-1.1.77777, eS 


PATTM,24,0,17,0,10,1ES 


CM03M,26,0,37.,1,53, ES 


BPCRM, 30,0, - Ra 1 ~DATCNT a YES 


NUMBM, 32.0, -1.1,.77777,VES 


PATTM,34,0,17,0,10, YES 


CMD4M, 36,0,47,1,335,1ES 


SEG O172 


TS$CODE 
CHARM 
377 
T$LOLIM 
TSHILIM 


T sCODE 
CMD2M 
37 
TSLOLIM 
TSHILIM 


T $CODE 
BPCRM 
«3 
T$LOLIM 
TSHILIM 


TSCODE 
NUMBM 


-1 
TSLOLIM 
TSHILIM 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
BPCRM 
-1 
TSLOLIM 
TSHILIM 


TSCODE 
— 


rsLOUIM 
TSHILIM 


T$CODE 
PATIM 
1? 
TSLOLI™ 
TSeHILIM 


TSCOOE 
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025566 
025570 
025572 


025702 
025704 
025704 
025706 
025706 
025710 
025710 
025712 
025714 
025716 
025720 
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026443 


077777 


022052 
026463 


026431 


000001 
077777 


026052 
026463 
000017 
000000 


000010 
002004 
075004 
027052 
026520 
000037 


000001 
000033 
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GPRMD 


GPRMD 


GPRMD ~ 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


xFER 
ENDSP1: XFER 
ENDSP2: GPRMD 
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BPCRM,40,D0, ~ 1 . 1,DATCNT 2. YES 


NUMBM ,42,0,-1,1,77777, VES 


PATTM,44,0,17,0,10,1ES 


CMD5M,46,0,37,1,33,14ES 


BPCRM,50,0, 1,1,DATCNT, VES 


NUMBM 52,0, ‘ghyl PITT. 


PATTM,54,0,17,0.,10, ES 


ENDSP2 
ENDSP 
CMD6M,56,0,3°,1,353, YES 


rES 


SEQ 0173 


TSLOLIM 
TSHILIM 


TS$CODE 
BPCRM 
=h 
TSLOLIM 
TSHILIM 


T$CODE 
NUMBM 
-1 
TSLOLIM 
TSHILIM 


T $CODE 
PATIM 


T$LOLIM 
TSHILIM 


T $CODE 
BPCRM 
-1 
TSLOLIM 
TSHILIM 


TSCODE 
NUMBM 
-1 
TSLOLIM 
TSHILIM 
TSCODE 
PATITM 
17 
TSLCLIM 
TSHILIM 
TSCODE 
TSCODE 
TSCODE 
CMDeoM 


TSmILIM 
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025722 
025722 
025724 
025726 
025730 
025732 
025734 
025734 
025736 
025740 
025742 
025744 
025746 
025746 
025750 
025752 
025754 
025756 
025760 
025760 
025762 
025764 
025766 
025770 
025772 
025772 
025774 


031052 
026443 
177777 
000001 
077777 


032052 
026463 
000017 
000000 
000010 


033052 
026526 


000001 
077777 
036052 
026463 
000017 
000000 
000010 


037052 
026534 


041052 
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GPRMD 


GPRMD 


" GPRMD 


GPRMD 


GPRMO 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


F1i4 
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BPCRM,60,D0, -1 ° 1,DATCNT, vES 


NUMBM ,62,0,-1,1,77777, VES 


PATTM,64,0,17,0,10,1ES 


CMD 7M,66,0,37,1,33,1ES 


BPCRM, 70,0, -1,1.DATCNT,YES 


NUMBM, 72,0, -1.1,77777,. YES 


PATTM, 74,0,17,0,10, ES 


CMDSM, 76,0,37,1,33, ES 


BPCRM, 100,0, -l, 1,DATENI YES 


NUMBM,102,0, Lc8g TT TTT, VES 


SEO 0174 


TSLOLIM 
TSHILIM 


T sCODE 
NUMBM 


TSHILIM 


T $CODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


T$CODE 
TSLOLIM 
TSHILIM 


T $CODE 
BPCRM 


«4 
TSLOLIM 
TSHILIM 
T$CODE 
NUMBM 
-1 
TSLOLI™ 
TSHILIM 


TsCODE 
PATITM 


1 
r¢_OLIM 
TSHILIM 


TSLOLIM 


G14 


PARAMETER CODING MACY11 30(1046) 06-APR-84 08:51 PAGE 177 

CZTSHO.P11 06 -APR-84 08:49 SOF TWARE PARAMETER CODING SECTION SEQ 0175 
7501 026056 026443 -WORD NUMBM 
7502 026060 177777 . WORD <4 
7503 026062 000001 «WORD TSLOLIM 
7 026064 077777 «WORD TSHILIM 
7505 026066 GPRMD =PATITM,104,0,17,0,10,1ES 
7506 026066 042052 «WORD TSCODE 
7507 026070 026463 -WORD PATTM 
7508 026072 000017 . WORD 17 
7509 026074 000000 . WORD TSLOLIM 
7510 026076 000010 -WORD TSHILIM 
*S1L 026100 ENDSP: 
7512 026100 xXFER JMPMSG 


7513 026100 176004 . WORD TSCODE 


PARAMETER CODING 
CZ2TSHD.P 11 


7514 
7S15 


026102 
026121 
026150 
026174 
026225 
026246 
026276 
026321 
026352 
026376 
026423 
026431 
026443 
026463 


026474 
026474 
026474 


026476 


026542 


026742 


026742 
026744 
026746 
026746 
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000100 


026756 
000004 
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030505 
051505 
052114 
047111 
044116 
020104 
040523 
044116 
047101 
051101 
042115 
043122 
047440 
052101 


020122 
052105 
040440 
020124 
041111 
040524 
046102 
041111 
042507 
041501 
031057 
041440 
020106 
042524 


06 -APR-84 08:51 PAGE 


SEQ 0176 
-NLIST BEX 
CLRM: -ASCIZ /CLEAR COUNTERS/ 
RRVM: -ASCIZ /RESET RANDOM VARIABLES/ 
HAEM: -ASCIZ /HALT AFTER EACH CMD/ 
RCVERM: .ASCIZ /PRINT RECOVERABLE ERRORS/ 
IRECM: .ASCIZ /INHIBIT RECOVERY/ 
BADTM: .ASCIZ /BAD TAPE SPOT DETECTION/ 
DINTM: .ASCIZ /DISABLE INTERRUPTS/ 
IREM: .ASCIZ /INHIBIT RFC ERROR REPORT/ 
CHGM: -ASCIZ /CHANGE CMD SEQUENCE/ 
CHARM: .ASCIZ /CHARACTERISTICS CODE/ 
CMD2M: .ASCIZ “"CMD/2” 
BPCRM: .ASCIZ /BRF COUNT/ 
NUMBM: .ASCIZ /@ OF OPERATIONS/ 
PATTM: .ASCIZ /PATTERN/ 
LIST BEX 
.EVEN 
JMPMSG: 
EXIT SFT 
. WORD TSCODE 
-NLIST BEX 
CMD3M: .ASCIZ “CMD/3” 
CMD4M: .ASCIZ “CMD/4" 
CMODSM: .ASCIZ “CMD/5” 
CMD6M: .ASCIZ “CMD/6” 
CMO7M: ASCIZ “CMD/7" 
CMD8M: .ASCIZ “CMD/8" 
LIST BEX 
.EVEN 
ENDOSFT 
.EVEN 
L1004i: 
FESSEHSESESASHSEHAEHASESESEEHESHHSEOEHEESHEHSEHEHEESESESESEEESHEEESESESHEASEEEEDECES 
FPSSEHHEHHHSHEHHEASEHHEASEHEEHESSAHEESSHEHHEEHESEASEHSHESEEAHEEHESHEHEEHHEEEASEEAEEE 
: PATCH AREA 
PATCH:: .BLKW 64, 
FASASSHSHESHSEHSHSHESHHEHSHHEHSEHEAHESEHSSESSEHESSAEEHSSEHASEHSESHEHSHEEHSEEEEEEEEE 
FSSSSSSHEHSSSHSSHEHEESHSHEESHESSHSHESHEEEHHESHEEESEEEHEEHSESHEESESEASEHEEESEAEEESEEE 
LASTAD 
~EVEN 
~WORD TSFREE 


LSLAST:: 
ENDMOD 


H14 
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«WORD TSSIZE 


[14 
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CZTSHD.P11 06 -APR-84 08:49 HARD CODED P-TBL SEG 9177 
7543 - ,SBTTL HARD CODED P-TBL 
7544 ' 
7545 soe 
7546 sDIAG IS PRE-PARAMETERIZED PER TBL 
Sa ‘ : 3 oe 
7548 ef 
7549 026746 BGNSETUP 1 
7550 026746 BGNP TAB 
7551 026746 000000 «WORD Q, 
7552 0267 000002 «WORD 110044-. 
7553 026752 L10042: 
7554 026752 172522 172522 
7555 0267 000224 224 
7556 026756 ENDPTAB 
7557. 0267 , 10044; 
7558 026756 ” ENDSE TUP 
7559 7 


7560 000001 ” .END 
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CZTSHO.P11 06 -APR 84 08:49 SYMBOL TABLE SEQ 0178 
ACK.C = 100000 G BRFCNT 003344 G CNTEND= 003324 CSPNTX= 000015 ERRREC 003415 G 
ADR = 000020 G BRF .C = 004000 G CNTLEN= 000550 G CsQIO = 000377 ERS = 100411 G 
ALLEOT 003450 G BTADDR 002544 G CODELM 003772 G C$ROBU= 000007 ERSFLG 003451 G 
ASSEMB= 000010 BIMSG1 013372 COUNTE= 050404 CSREFG= 000047 EVL = 000004 G 
ATTNM 004335 G BIMSG2 013457 CP. ADH= G CSRESE= 000033 EXALL 006510 G 
AUDRPM 004645 G BIMSG3 013527 CP.ADL= 000002 G CSREVI= W- 03 EXARTN 007002 
AUTODM 021522 BrPT 003436 G CP.CMD= 000000 G CSRFLA= 00U021 EXCRIN 010634 
BADTM 026246 BIRPT 016544 CP.CNT= 000006 G CSRPT = 000025 EXCUTE 010326 G 
BADTSW 002206 G BTO 002774 G CRLF 005213 G CSSEFG= 000046 EXPBOT 003440 G 
BFSEQ 022676 BT1 003046 G CRLFSP 005216 G C$SPRI= 000041 EXSUB 007004 
BFSEQO 022722 BT2 003120 G crce 003376 G C$SVEC= 000037 ESEND = 002100 
BFSEQ1 022774 BT3 003172 G CvC.C = 040000 G CsTPRI= 000013 ESLOAD= 000035 
BFSEQ2 023006 CHAR 002216 G CsAU_ = 000052 DATARD 003336 G FATSM 004373 G 
BFSEQ3 023100 CHARM 026376 CSAUTO= 000061 DATAWT 003334 G FIRSTU 015452 G 
BFSEQ4 023152 CHGFLG 002212 G CsBRK = 000022 DATCNT= 004000 G FMT.CO= 000040 G 
BFSEQS 023214 026352 CSBSEG= 000004 DEVTBL 002532 G FMT.C1= 000100 G 
BFSEQ6 023266 CHKERR 011456 G C$BSUB= 000002 OFPTBL 002174 G FTLCNT 003314 G 
BFSEQ7 023320 CH.EAI= 000040 G CsCEFG= 000045 DF TSCH= 000040 G FUNRM 004353 G 
BFSEQ8 023352 CH.ERI= 000020 G CsCLCK= 000062 OIA = 100006 G FSAU = 000015 
BFSEQ9 023404 CH.ESS= 000200 G CSCLEA= 000012 DIABLK= 003334 G FSAUTO= 000020 
BFSE10 023426 CKDATA 015036 G CsCLOS= 000035 DIACNT= 000020 G FSBGN = 000040 
BGNFLG= 003404 CKDCNT 015446 CsCLP1= DIAGMC= FS$CLEA= 000007 
BINC 014366 CKDOFF 015450 CsCVEC= 000036 DINT 002210 G FSsDU = 000016 
BITO = 000001 G CKHAE 016060 G CSOCLN= 000044 DINTM 026276 FSEND = 000041 
BITOO = 000001 G CKHRTN 016146 Csb00U= 000051 OLY = 000020 G FSHARD= 000004 
BITO1L = 000002 G CLN = 101012 G CSORPT= 000024 OLY.C = 000020 G F$SHW = 000013 
BITO2 = 000004 G CLRERR 011154 G CsOU_ = 000053 ORI = 100013 G FSINIT= 000006 
BITO3 = 000010 G CLRFLG 002202 G CSEDIT= 000003 DROPOM 004616 G FSJMP = 000050 
BITO4 = 000020 G CLRM 026102 CSERDF= 000055 DROPED 003446 G FSMOD = 000000 
BITOS = 000040 G CMDAC 007344 G CSERHR= 000056 DROPN 015774 FSMSG = 000011 
BITO6 = 000100 G CMDASC 003650 G CSERRO= 000060 DROPU 015554 G F$PROT= 000021 
BITO7? = 000200 G CMOD 002220 G CSERSF= 000054 DROPUA 015704 FSPWR = 000017 
BITO8 = 000400 G CMOLG 003354 G CSERSO= 000057 DRORTN 015762 FSRPT = 000012 
BITO9 = 001000 G CMDPK™ 004102 G CSESCA= 000010 DTAERM 005224 G FSSEG = 000003 
BIT1 = 000002 G CMOPKT 002310 G CSESEG= 000005 DTAER2 004677 G F$SOFT= QO00005 
BIT10 = 002000 G CMDSAV 003350 G CSESUB= 000003 DTAER3S 004746 G FSSRV = 000010 
BIT11 = 004000 G CMDSEQ 003460 G CSETST= 000001 DTAER4 005010 G FS$SUB = 000002 
BIT12 = 010000 G CMDSE2 003470 G CSExIT= 000032 DTAERS 005031 G F$SW = 000014 
BIT13 = 020000 G CMOTBL 003562 G CSGETB= 000026 EF .CON= 000036 G FSTEST= 000001 
BIT14 = 040000 G CMDWRD 003346 G CSGETW= 000027 EF .NEW= 000035 G GCMDA 007416 G 
BITiS = 100000 G CMD.CO= 000001 G CSGMAN= 000043 EF .PWR= 000034 G GENPAT 010030 G 
BIT2 = 000004 G CMD.Ci= 000002 G CS$GPHR= 000042 EF .RES= 000037 G GES = 100017 G 
BITS = 000010 G -C2= 000004 G C$GPLO= 000030 EF .STA= OG GETSTM 005157 G 
BIT&4 = 000020 G CMD.C3= 000010 G C$GPRI= 000040 EINC C14374 GIT 010322 
BITS = 000040 G CMD.C4= 000020 G CsINIT= 000011 END = 177777 G GOWAIT 010636 G 
BIT6 = 000100 G CMD2M 026423 CSINLP= 000020 ENDERF= 003416 GSCPK 002320 
BIT7 = 000200 G CMD3M 026476 CSMANI= 000050 ENDFLG+ 003452 GSCNTO= 000200 
BIT8 = 000400 G CMD4M 026504 C$MEM = 000031 ENDSP 26100 GSDELM= 000372 
BIT9 = 001000 G CMDSM 026512 C$MSG = 000023 ENDSP1 025706 GsDISP= 000003 
BOE = 000400 G CMD6M 026520 CSOPEN= 000034 ENDSP2 025710 GSEXCP= 000400 
BORERS 013576 G CMD7M 026526 CSPNTB= 000014 EOTFLG 003426 GSHILI= 000002 
eee eee | 6 CMD8M 026534 CSPNTF= 000017 ERCVER 002205 G GSLOLTI= 000001 


CNTBGN= 002554 CSPNTS= 000016 ERLOG 003412 G GSNO = QOO0OdD 


K14 
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CZTSHD.P11 06 -APR-84 08:49 SYMBOL TABLE SEQ 0179, 
GSOFFS= 000400 JMP = =_ (000040 G L$SPC 002056 G MSGPKT 002334 G PRIO1 = 000040 G 
GSOFSI= 000376 JMPMSG 026474 L$SPCP 002020 G MSGPKO 002352 G PRIO2 = 000100 G 
G$PRMA= 000001 JMP.C = 000040 G LS$SPTP 002024 G MSGPK1 002370 G PRIO3 = 000140 G 
GSPRMD= 000002 JSJMP = 000167 L$STA 002030 G MSGPK2 002406 G PRIO4 = 000200 G 
G$PRML= 000000 LENMSK 003356 G L$SwW 002202 G MSGPK3 002424 G PRIOS = 000240 G 
GSRADA= 000140 LOE = 040000 G LS$TEST 602114 G MS.RFC= 000004 G PRIO6 = 000300 G 
G$RADB= 000000 LOG 014102 G LSTIML 002014 G MS.XSO= 000006 G PRIO7 = 000340 G 
GSRADD= 000040 LOT = 000010 G LS$UNIT 002012 G MS.XS1= 000010 G PRXST 015776 G 
GSRADL= 000120 LsACP 002110 G L10000 002200 MS.XS2= 000012 G PTCMDS 025134 
G$RADO= 000020 LSAPT 002036 G L10001 002310 MS.XS3= 000014 G PWRFLG 003453 G 
G$xXFER= 000004 L$AU 021770 G L10002 005370 NCMD.C= 177740 G RANB 003360 G 
GSYES = 000010 LSAUT 002070 G L10003 006314 NCNT 003340 G RANBC = 153624 G 
HAE 002204 G LSAUTO 021232 G L10004 006322 NCNT1 003342 G RANCMD 023732 
HAEM 026150 LscCP 002106 G L10005 006730 NEXTSP 025406 RANDOM 003441 G 
HALTM 004042 G LSCLEA 021654 G L10006 006336 NEXTU 015520 G RANP = 000007 G 
HEL = 000000 Lsco 002032 G L10007 006344 NINUSE= 177774 G RANRD 023772 

= 100000 G L$OEPO 002011 G L10010 017674 NOINTM 004421 G RANS 003362 G 
HROCNT 003304 G LS$DESC 002136 G L10012 021230 NRDYM 021616 RANSC = 032561 G 
IBE = 010000 G LSDESP 002076 G L10013 021520 NSSRM 004271 G RANW 024072 
IdU = 000040 G L$DEVP 002060 G L10014 021714 NUMBM 026443 RANWR 024046 
IER = 020000 G LSDISP 002124 G L10015 021766 NURTY1L 005073 G RANWY 024060 
IE.C = 000200 G L$OLY 002116 G 110016 022062 OFLINM 005127 G RCVERM 026174 
INIT1O 017704 LSOTP 002040 G L10017 023450 ONEFIL= OQOO0001 ROF = 104001 G 
INIT1S 020132 LSDTYP 002034 G 110020 022216 OPFLAG 003456 G ROR = 104401 G 
INIT16 020152 L$DU 021716 G L10021 022242 OPP.C = 020000 G RECCNT 003324 G 
INTFLG 003416 G L$sOUT 002072 G L10022 022262 OSAPTS= 000000 RECLOG 003411 G 
INTPRI= 000340 G L$DvVTY 002164 G L10023 022302 OsAU = 000001 RECRED 006312 
IRE 003445 G LSEF 002052 G L10024 022322 OSBGNR= 000001 RECTAP 006346 G 
TREC 002211 G LSENVI 002044 G L10025 022342 OSBGNS= 000001 RECUD 011310 G 
IRECM 026225 LSETP 002102 G L10026 022362 OsOU = Q00001 REPEAT= 050224 
IREM 026321 LSEXP1 002046 G L10027 C22402 OSERRT= 000000 RERM 004550 G 
ISR = 100 G LSEXP4 002064 G L10030 022422 OSGNSW= 000001 RETRY = 050222 
IxE = 004000 G LSEXPS 002066 G L10031 022442 OSPOIN= 000001 RETRYC 003404 G 
IsAU = 000041 L$HARD 025266 G L10032 022500 OSSETU= 000001 REWRT 013752 
ISAUTO= 000041 L$HIME 002120 G L10033 022664 PASCNT 003254 G RFBC 002654 G 
ISCLN = 000041 LSHPCP 002016 G L10034 024124 PATCH 026542 G RFCERM 004254 G 
IsOU) = 000041 LSHPTP 002022 G L10035 024270 PATERN 003374 G RFREC 002754 G 
ISHRD = 000041 L$Hw 002174 G L10036 024422 PATRO 010114 G RFUNR 002764 G 
ISINIT= 000041 L$ICP 002104 G 110037 025262 PATRI 010152 G RLEXM 004310 G 
IsMOD = 000041 L$INIT 017704 G L10040 025336 PATR2 010172 G RNF = 125401 G 
ISMSG = 000041 L$LADP 002026 G L10041 026542 PATR3 010202 G RNOPSC= 177740 G 
ISPROT= 000040 LS$LAST 026746 G L10042 026752 PATR& 010226 G = 105401 G 
ISPTAB= 000041 L$LOAD 002100 G L10044 026756 PATRS 010240 G RNYM 004504 G 
ISPWR = 000041 LSLUN 002074 G MBR = 100012 G PATR6 010252 G RPF = 105001 G 
ISRPT = 000041 LSMREV 002050 G MEMOM 021126 PATR? 010272 G RPR = 125001 G 
I$SSEG = 000041 L$NAME 002000 G MISCFG 003455 G PATR&8 010324 G RPTCNT 003406 G 
ISSETU= 000041 L$PRIO 002042 G MOD.CO= 000400 G PATTBL 010072 RPTFLG 003443 G 
ISSFT = 000041 L$PROT 017676 G MOD.C1= 001000 G PATTM 026463 RPTIA 017012 
ISSRV = 000041 LSPRT 002112 G MOD.C2= 002000 G PCMOWD 003352 G RPT1B 017067 
TSSUB = 000041 L$REPP 002062 G MOD.C3= 004000 G PIRE 002214 G RPTiC 017140 
IsTST = 000041 L$REV 002010 G MOVMSG 011224 G PNT = 001000 G RPTID O17211 
JLOC 003372 G LSRPT 016150 G MSGCNT= 000016 G PRI = 002000 G RPTLE 01°437 
JLOOP 003370 G L$SOFT 025340 G MSGPKA 002502 G PRIOO = 000000 G RPTLIF = =O1L7315 
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RPT1G 017366 
RPTII 017563 
RPT1J 017467 
RPTIK 017554 
RRANV 002203 
RRBC 002614 
RRECL = 000020 
RRREC 002734 
RRUNR 002744 
RRVM 026121 
RTILE 012716 
RTLRIN 013042 
RWCPK 002330 
RWO = 102010 
RWERR 003413 
RSSAVE 003400 
SCCNT 003264 
SCERM 004230 
SCH = 140004 
SCHBK 002442 
SCHCNT= 000010 
SEQEND 003550 
SETCH 006444 
SETRW 006470 
SETUP 007452 
SFF = 105010 
SFPTBL 002202 
SFR = 105410 
SRF = 104010 
SRR = 104410 
STAERM 005372 
STAER1 005704 
STAER2 006062 
STAER3 006141 
STAER4 006177 
STAERS 006217 
STAER6 006026 
STAER7 005776 
STAFLG 003452 
SVCGBL= 000000 
SVCINS= 000001 
SVCSUB= 000000 
SVCTAG= 000000 
SVCTST= 000000 
SWBFLG 003444 
SWB.C = 010000 
S$LSYM= 010000 
TCCRA 011700 
TCCO =: 0011720 
TCCl 011736 
TCC2 011754 
TCC3 §=-012064 
TCC4 = 012102 
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TSPCNT = 


SYMBOL TABLE 


012552 
012650 
012700 
012062 
003364 
003366 
004207 
004460 
003454 
021646 
004436 


000002 
000000 
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TSPTAB= 
TSPTHV= 
TSPTNU= 
TSSAVL= 
T$SEGL = 
TSSIZE= 
TSSUBN= 
TS$TAGL= 
T$TAGN= 
TSTEMP= 


T$TEST= 000005 


TSTSTM= 
TSTSTS= 
TS$$AU = 
TS$$AUT= 
T$$CLE= 
T$$DAT= 
T$sDU = 
T$$HAR= 
T$$Hw = 
T$$INI= 
T$$MSG= 
T$sPC = 
T$$PRO= 
TS$$PTA= 


100412 
003414 


ong AAHH 


$F $INC= 


000110 
000210 


AHHAHHHOHAHHHAHHGHHAA AHnAMvnAaAng 


AAMOMOOHHOHHAH 


$F $LOO= 
$F SNAM= 
$F $NO = 
$SFSOR = 
$F SRTN= 
$F $SEL= 
$F $ THE = 


$SERFL= 
$$FLAG= 


000200 


000402 
Q0d0CO 


OCO000! 


SEG 0180" 


M14 
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CZTSHD.P11 06 -APR -84 08:49 SYMBOL TABLE 

$$FROM= 000000 $$REG = 177777 $$RTN2= 000000 
$sLOC = 025072 $$RETU= 000000 $$SRC = 000000 
$$LOCN= 000000 $$RTN1= 000000 $$TGSV= 000000 
- ABS. 026756 000 


ERRORS DETECTED: 0O 


CZTSHD,CZTSHD/SOL /EQ: ONEF ILE =SVC.SML,SPMAC.SML,CZTSHD.P11 
RUN-TIME: 132 138 .8 SECONDS 
RUN-TIME RATIO: 347/27171.2 
CORE USED: 31K (62 PAGES) 


SEQ 0181 .° 


$$TGS1= 000000 $$$TAG= 050000 : 
$$TGS2- 000000 . = 026756 a4 
$$TO = 000000 ‘ 


